19.01.2018, 11:31
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от pANda777
...пользователь кликает и программа определяет, если он попал на эту координату, то верно иначе не верно...
|
Код:
var
iX, iY: integer;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label2.Caption:= 'Координато: X ' + IntToStr(X) + ',Y ' + IntToStr(Y);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (iX = X) and (iY = Y) then
begin
Label1.Caption:='Попал!';
iX:= Random(ClientWidth);
iY:= Random(ClientHeight);
end else Label1.Caption:= 'Промах...';
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:= 'Тыкни: X ' + IntToStr(iX) + ',Y ' + IntToStr(iY);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
iX:= Random(ClientWidth);
iY:= Random(ClientHeight);
Label1.Caption:= 'Тыкни: X ' + IntToStr(iX) + ',Y ' + IntToStr(iY);
end;
|