Как отловиь системные клавиши в Lazarus'е

[The_Eternal_Student]

Для удобства в моей программе хотел использовать клавиши "влево", "вправо" и т.д. Но, к сожалению, событие OnKeyPress не отлавливают данные клавиши. Проверял таким способом:

Код: Выделить всё

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  ShowMessage(IntToStr(ord(Key)));
end;


Нашел как это реализовать на Delphi. Вот код:

Код: Выделить всё

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_UP then
  Dec(PosY, 5);
  if Key = VK_DOWN then
  Inc(PosY, 5);
  if Key = VK_LEFT then
  Dec(PosX, 5);
  if Key = VK_RIGHT then
  Inc(PosX ,5);
  OnPaint(Sender);
end;


Но он не рабочей в Lazarus'e. Есть ли возможность, наподобие в Delphi, использовать эти клавиши("влево" и т.п.)?
P.S. Мне нужно, чтобы программа работала в Window's

[Mr.Smart]

В чём проблемма?
подключи модуль Windows там определены все константы вида VK_... и многие другие.

[The_Eternal_Student]

Спасибо, всё заработала

[Павел Ишенин]

Не надо никакого модуля Windows. Добавить LCLType в модуль - там есть VK_UP и прочие.

[Mr.Smart]

Не надо никакого модуля Windows. Добавить LCLType в модуль - там есть VK_UP и прочие.

Если ПО пишется чисто под винду почему бы и недобавить

[Attid]

чтоб через неделю не отвечать на вопрос как это сделать в линуксе

Добавлено спустя 1 минуту 23 секунды:
и вообще за такой вопрос

Но он не рабочей в Lazarus'e.

бить надо. где текст ошибки ?

[The_Eternal_Student]

Чтобы не били :

Error: Identifier not found "VK_UP"

[Павел Ишенин]

Ну так с LCLType в uses такой ошибки нет?

[Vadim]

А чтобы не добавлять никаких модулей, можно добавить в прогу четыре константы:

Код: Выделить всё

  VK_LEFT = 37;
  VK_UP = 38;
  VK_RIGHT = 39;
  VK_DOWN = 40;


или вообще использовать цифры.

[The_Eternal_Student]

Да и с модулем LCLType программа прекрасно работает, а вот использовать константы (или цифры) не имеет смысла, так как забивать такими вещами голову не стоит. Да?

Reply: Вам виднее (так как не программист, я вас не пойму, и тем более в деньги не уперается)

[Vadim]

Да?

Нет. Вы ведь должны знать или названия констант или их значения, чтобы выполнить поставленную задачу. Если не знать в каком направлении искать, деньги быстро кончутся...