Действие при нажатии

[Praud]

Я новичек в delphi, помогите разобраться.
Нужно сделать так, чтобы при нажатии кнопки происходило какое-то действие, а именно нужно взять координаты с экрана.
Открыв гугл прочитал про событие OnKeyDown, но не смог разобраться как его использовать. Координаты взятые с экрана должны выводиться в форму Memo. Сама функция эта должна работать просто при включенной программе ( без кнопки ). Я попробовал это все осуществить и для формы memo я написал вот такое событие:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var Point:TPoint;
begin
if key=VK_RETURN then
begin
GetCursorPos(Point);
Memo1.Lines.Add('(X=' + IntToStr(Point.X)+ ',Y='+ IntToStr(Point.Y));
end;
end;

end.

Оно ничего не работает, что не так?

[spirit-ua]

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

Я новичек в delphi, помогите разобраться.
Нужно сделать так, чтобы при нажатии кнопки происходило какое-то действие, а именно нужно взять координаты с экрана.
Открыв гугл прочитал про событие OnKeyDown, но не смог разобраться как его использовать. Координаты взятые с экрана должны выводиться в форму Memo. Сама функция эта должна работать просто при включенной программе ( без кнопки ). Я попробовал это все осуществить и для формы memo я написал вот такое событие:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var Point:TPoint;
begin
if key=VK_RETURN then
begin
GetCursorPos(Point);
Memo1.Lines.Add('(X=' + IntToStr(Point.X)+ ',Y='+ IntToStr(Point.Y));
end;
end;

end.

Оно ничего не работает, что не так?

Если "при включеной программе" значит нужно:
1. Кинуть на форму таймер
2. Выставить нужный интервал (в милисек)
3. В событии таймера прописать ваш код

GetCursorPos(Point);
Memo1.Lines.Add('(X=' + IntToStr(Point.X)+ ',Y='+ IntToStr(Point.Y));

4. Запустить таймер

[Praud]

Таймер не нужен, мне нужно чтобы координаты брались только после нажатия кнопки

[Yurk@]

Form1.KeyPreview := True;

[Praud]

Где это писать?

[Praud]

разобрался, спасибо

[Praud]

Еще один вопрос. Как сделать так, чтобы действие при нажатии на кнопку выполнялось только 3 раза? Допустим если кнопка нажата 4 раза, то уже ничего не случится

[Lime]

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

Еще один вопрос. Как сделать так, чтобы действие при нажатии на кнопку выполнялось только 3 раза? Допустим если кнопка нажата 4 раза, то уже ничего не случится

Использовать глобальную переменную типа byte.

var
  Form1: TForm1;
  Click_count: Byte = 0;

При каждом нажатии проверять < 3, увеличивать на 1, записывать координаты в memo.

[Praud]

Понял, спасибо.
А вот такой вопрос.

При нажатии пробела нужно чтобы записывались координаты в разные объекты.

if key=VK_SPACE then
  begin


    GetCursorPos(Point[1]);
    Memo1.Lines.Add('(X=' + IntToStr(Point[1].X)+ ',Y='+ IntToStr(Point[1].Y)+')');

Как сделать так чтобы когда я нажал еще раз на пробел уже записало в Point[2]?

[Praud]

Это осуществимо вообще?