Цитата:
|
Сообщение от nikki4
3) Как делается такое?:
Пользователь нажимает на кнопку, после чего кликает курсором на экране и переменной присваивается значения координат где был клик
|
проблема в том, что ен знаю как проверить нажата мышка или нет:
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage ('Кликните мышкой на ...');
if мышкой кликнули, то:
begin
GetCursorPos (mish);
edit1.text:=inttostr(mish.X);
edit2.Text:=inttostr(mish.Y);
end;