[stalker_174]

Всем привет. Столкнулся с проблемкой при написании игрушки. В общем, на форме есть рисунок Image1 и таймер, в таймере такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.top:=Random(Form1.height) + 1;
Image1.left:=Random(Form1.width) + 1;
end;

таймер постоянно в случайном порядке двигает картинку на форме. Проблема в том, что клик на картинку мышкой (попадание в цель) должен зачисляться как очко в какую-нибудь переменную и выводиться в Label1 на форме, а если "очков" станет 10, то showmessage('Вы выиграли!'); Помогите плз
И что бы картинка не выходила за грани формы

[poli-smen]

Сообщение от stalker_174

Всем привет. Столкнулся с проблемкой при написании игрушки. В общем, на форме есть рисунок Image1 и таймер, в таймере такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image2.top:=Random(Form1.height) + 1;
Image2.left:=Random(Form1.width) + 1;
end;

На форме Image1, а в таймере Image2 ? Непорядок.

Сообщение от stalker_174

и че дальше делать я незн помогите плиз!

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

[stalker_174]

Сообщение от poli-smen

На форме Image1, а в таймере Image2 ? Непорядок.
Продолжай писать дальше - этого кода явно не достаточно для того, чтобы игрушка заработала.

помоги плиз

[stalker_174]

Че дальше то делать?

[poli-smen]

Сообщение от stalker_174

помоги плиз

Так я же и помогаю.

Сообщение от stalker_174

Че дальше то делать?

Откуда же я знаю что у тебя в игре запланировано? Ты же разработчик.

[NumLock]

создай обработчик OnMouseDown для Image

[stalker_174]

я уже создал

[poli-smen]

Сообщение от NumLock

создай обработчик OnMouseDown для Image

Ага. Кажется я начинаю понимать смысл игры. Значит по форме случайным образом мечется картинка и нужно успеть по ней кликнуть мышкой?
Тогда да, добавь обработчик события OnMouseDown на картинку.

[poli-smen]

Сообщение от stalker_174

таймер постоянно в случайном порядке двигает картинку на форме. Проблема в том, что клик на картинку мышкой (попадание в цель) должен зачисляться как очко в какую-нибудь переменную и выводиться в Label1 на форме, а если "очков" станет 10, то showmessage('Вы выиграли!'); Помогите плз
И что бы картинка не выходила за грани формы

Код:

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;

[stalker_174]

и все что ли?

[poli-smen]

Сообщение от stalker_174

и все что ли?

Исходя из условия - всё. А что, разве не работает?

[stalker_174]

ща посмотрю

[stalker_174]

блин у меня че то делфи глючит можешь дать на норм делфи ссылку плиз?

[stalker_174]

Сообщение от stalker_174

ща посмотрю

блин у мя че то делфи глючит можешь дать ссылку плиз?