[nbstudio]

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

Randomize; //запускаем генератор случайных чисел
Image2.left:=Random(Form1.width);
Image2.top:=Random(Form1.height);

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

[:S.p.a.m.]

Ну onMouseDown у Image2:

Код:

1 2 3 4 5 6 7

inc(count); label1.caption:=IntToStr(count); if count = 10 then begin   showmessage('Вы выиграли')   count:=0; end;

Писал прям тут, но должно работать.

[nbstudio]

Не-а, не работает, как я понял count - это переменная, написал в var ее как count:integer. И при клацании по картинке ничего в Label не выводит вообще. Переписал этот код в событие Image1Click - так при первом же попадании вывело число 11678929 и все больше не хочет. А надо чтоб при каждом клацании прибавалялось по 1 очку.

[nbstudio]

а, не, то я написал случайно этот код в mousedown Label'a случайно, но теперь все-равно при клике на картинку выводит это число.

[PhoeniX]

Инициализируй при создании формы.

Код:

1

count:=0;

[nbstudio]

Нашел решение, вот и код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Timer1Timer(Sender: TObject); begin Image2.top:=Random(Form1.height) + 1; Image2.left:=Random(Form1.width) + 1; end;   procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  if StrToInt(Label1.Caption) < 10 then begin  Image2.top:=Random(Form1.height) + 1;  Image2.left:=Random(Form1.width);  Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);  Timer1.Interval := Timer1.Interval - 100; end; if Label1.Caption = '10' then begin   Timer1.Enabled:=false;   Label1.Caption:='0';   showmessage('Вы выиграли!'); end; end;

Admin: Не забываем про теги!