Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.73
ada lavleis
1 / 1 / 0
Регистрация: 17.09.2013
Сообщений: 130
#1

Вставить кнопки в программу - Delphi

06.10.2013, 21:03. Просмотров 1441. Ответов 5
Метки нет (Все метки)

добрый вечер, уважаемые программисты. посмотрите, пожалуйста, на код программы и скажите - правильная она или нет. а также, пожалуйста, скажите: какие кнопки нужно поставить.

вот задание:
Создать проект, который имеет возможность проверять пароль при открытии формы, а также позволяет двигать (вариант 1-дом, вариант 2-машина) по форме в зависимости от нажатой клавиши (вверх, вниз, вправо, влево), а также наоборот исчезает при нажатии клавиши Delete и появляется при нажатии клавиши Insert.

вот код пароля при открытии формы:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit unit4; 
 interface 
 uses 
Forms, 
 Dialogs, unit3; 
  var 
 Passwrd: String; 
 implementation 
 
Begin          // Запитуємо пароль: 
if InputQuery ('Вікно введення пароля ' , ' Введіть пароль: ' , Passwrd) 
then 
if Passwrd = 'Delphi' then 
begin // Все в порядку, пароль вірний 
Application.CreateForm (Tform3, Form3); 
Application.Run; 
end else        begin 
 ShowMessage ( 'Пароль не вірний! ' ); 
 exit; 
end; 
end.
вот код движения фигурки:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
unit Unit3; 
 
interface 
 
uses 
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls; 
 
type 
  TForm3 = class(TForm) 
    PaintBox1: TPaintBox; 
    procedure create(Sender: TObject); 
 
    procedure Paint(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    x,y:integer; 
    procedure hook(var msg:tmsg; var handled:boolean); 
  end; 
 
var 
  Form3: TForm3; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm3.create(Sender: TObject); 
begin 
 application.onmessage:=hook; 
 x:=100; 
 y:=100; 
end; 
 procedure tform3.hook(var msg:tmsg; var handled:boolean); 
 begin 
    if msg.message<>wm_keyDown  then exit; 
    case msg.wParam of 
    VK_RIGHT:  inc(x,10); 
    vk_LEFT:DEC(X,10); 
    VK_down:  inc(y,10); 
    vk_up:DEC(y,10); 
    end; 
    paintbox1.Repaint; 
    handled:=true; 
 end; 
procedure TForm3.Paint(Sender: TObject); 
begin 
    with paintbox1.Canvas do 
    begin 
       Pen.Color:=clgreen; 
    Pen.Width:=5; 
      rectangle(x-10,y-10,x+10,y+10); 
       Pen.Width:=1; 
      brush.Color:=clRed; 
      ellipse(0,0,x,y); 
      textout(x+50,y+100,'House'); 
      pixels[x,y]:=clyellow; 
    end; 
     paintbox1.Canvas.Pen.Color:=clgreen; 
     paintbox1.Canvas.Pen.Width:=2; 
     paintbox1.Canvas.MoveTo(x-10,y-10); 
    paintbox1.Canvas.LineTo(x+10,y+10) ; 
    //paintbox1.Canvas.MoveTo(x-10,y-10); 
    paintbox1.Canvas.LineTo(x+30,y-10) ; 
end; 
end.
скажите, пожалуйста, какие кнопки мне нужно вставить в программу (коды поданы выше).

заранее огромное спасибо всем за помощь!

Добавлено через 1 час 6 минут
ребята, помогите, пожалуйста. какие кнопки мне нужно вставить?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 21:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вставить кнопки в программу (Delphi):

Нужно написать программу, что бы при нажатии кнопки, появлялись другие кнопки, а та пропадала - Delphi
То есть, нас перекидало на другую форму, но она должна быть на месте первой, и первая должна закрыться

Вставить картинку в RxRichEdit при помощи кнопки - Delphi
Извините за глупый вопрос, как можно вставить картинку в RxRichEdit при помощи кнопки? Добавлено через 55 минут кто-нибудь,...

Как вставить в пустой Image картинку при нажатии кнопки? - Delphi
Добрый день. Помогите пожалуйста. Как написать процедуру, чтобы при нажатие кнопки появлялась картинка в пустом Image? Т.е. пустой...

Как вставить в пустой Image картинку при нажатии кнопки? - Delphi
Ребята нужна помощь, хочу при каждом клике на фамилию игрока отдельное фото, как это сделать?

Вставить картинку в программу - Delphi
Здравствуйте! Такой вопрос: как можно привязать картинку к переменной? и как вообще вводить картинки в программу?

Вставить видео в программу - Delphi
Нашла исходник игры, переделала Вопрос такой: Как вставить видео? Никогда с таким не сталкивалась. При нажатии кнопки &quot;О программе&quot;...

5
northener
пофигист широкого профиля
3208 / 2261 / 485
Регистрация: 15.07.2013
Сообщений: 13,215
06.10.2013, 21:14 #2
Цитата Сообщение от ada lavleis Посмотреть сообщение
посмотрите, пожалуйста, на код программы
А тут нет кода программы. Есть только два несвязанных ни с чем куска кода.
0
ada lavleis
1 / 1 / 0
Регистрация: 17.09.2013
Сообщений: 130
07.10.2013, 16:44  [ТС] #3
скажите, пожалуйста, какие кнопки нужно вставить в эти куски кода?
0
DelphiXE3
22 / 22 / 1
Регистрация: 24.03.2013
Сообщений: 119
07.10.2013, 18:48 #4
Какие сказали, такие и вставь, все просто.
0
ada lavleis
1 / 1 / 0
Регистрация: 17.09.2013
Сообщений: 130
08.10.2013, 00:23  [ТС] #5
не сказали какие кнопки нужно вставлять. вот поэтому я и спрашиваю вашего совета.
0
northener
пофигист широкого профиля
3208 / 2261 / 485
Регистрация: 15.07.2013
Сообщений: 13,215
08.10.2013, 01:20 #6
Цитата Сообщение от ada lavleis Посмотреть сообщение
скажите, пожалуйста, какие кнопки нужно вставить в эти куски кода?
Никакие кнопки в эти куски вставлять не нужно. Поскольку в эти куски вставить кнопки невозможно/бесполезно.

Не по теме:

К этим кускам легче пришить пуговицы, чем вставить кнопки


P.S.
Если у вас есть еще время до сдачи учебного задания, попробуйте попросить помощи "Как создать проект в Делфи".
0
08.10.2013, 01:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2013, 01:20
Привет! Вот еще темы с ответами:

Как вставить программу внутрь другого .exe - Delphi
Доброго времени суток! Скажу сразу я не пытаюсь сделать малварь или прочую нечисть. Меня интересует, как можно вставить...

Нужно создать кнопки "Копировать" и "Вставить" для программы - Delphi
procedure TForm1.BitBtn9Click(Sender: TObject); var f:textFile; var i:integer; begin AssignFile(F,'temp.txt' ); ...

Создать программу, в которой нажатием кнопки осуществляется заполнение таблицы - Delphi
Создать программу, в которой нажатием кнопки осуществляется заполнение таблицы таблицей умножения, а с помощью подпунктов меню возможно...

Написать программу, в которой при нажатии одной кнопки меняется текст - Delphi
Написать программу, в которой при нажатии одной кнопки меняется текст. Один текст исчезает, другой появляется и так далее. Должно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru