|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Снайпер на Delphi!
Всем привет. Столкнулся с проблемкой при написании игрушки. В общем, на форме есть рисунок Image1 и таймер, в таймере такой код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.top:=Random(Form1.height) + 1; Image1.left:=Random(Form1.width) + 1; end; таймер постоянно в случайном порядке двигает картинку на форме. Проблема в том, что клик на картинку мышкой (попадание в цель) должен зачисляться как очко в какую-нибудь переменную и выводиться в Label1 на форме, а если "очков" станет 10, то showmessage('Вы выиграли!'); Помогите плз И что бы картинка не выходила за грани формы Последний раз редактировалось stalker_174, 22.11.2012 в 16:07. |
#2
|
||||
|
||||
Цитата:
Цитата:
|
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
Че дальше то делать?
|
#5
|
||||
|
||||
Цитата:
Цитата:
|
#6
|
||||
|
||||
создай обработчик OnMouseDown для Image
Пишу программы за еду. __________________ |
#7
|
|||
|
|||
я уже создал
|
#8
|
||||
|
||||
Цитата:
Тогда да, добавь обработчик события OnMouseDown на картинку. |
#9
|
|||
|
|||
ща я допишу часть в начале
|
#10
|
||||
|
||||
Цитата:
Код:
ShowMessage('Ура! Попал!'); |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Speech (08.12.2012)
|
#11
|
|||
|
|||
я дописал условие программы
|
#12
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Image1Click(Sender: TObject); var x: Integer; begin x := StrToIntDef(Label1.Caption, 0) + 1; Label1.Caption := IntToStr(x); if x = 10 then ShowMessage('Вы выиграли!'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.Top := Random(Height - Image1.Height); Image1.Left := Random(Width - Image1.Width); end; |
#13
|
|||
|
|||
и все что ли?
|
#14
|
||||
|
||||
Цитата:
|
#15
|
|||
|
|||
ща посмотрю
|