Reply: Вам виднее
Найдено 4 результата
- 11.04.2009 18:39:57
- Форум: Lazarus
- Тема: Как отловиь системные клавиши в Lazarus'е
- Ответы: 10
- Просмотры: 7872
Re: Как отловиь системные клавиши в Lazarus'е
Да и с модулем LCLType программа прекрасно работает, а вот использовать константы (или цифры) не имеет смысла, так как забивать такими вещами голову не стоит. Да? 
Reply: Вам виднее
(так как не программист, я вас не пойму, и тем более в деньги не уперается)
Reply: Вам виднее
- 11.04.2009 14:31:48
- Форум: Lazarus
- Тема: Как отловиь системные клавиши в Lazarus'е
- Ответы: 10
- Просмотры: 7872
Re: Как отловиь системные клавиши в Lazarus'е
Чтобы не били
:
Lazarus писал(а): Error: Identifier not found "VK_UP"
- 11.04.2009 11:51:14
- Форум: Lazarus
- Тема: Как отловиь системные клавиши в Lazarus'е
- Ответы: 10
- Просмотры: 7872
Re: Как отловиь системные клавиши в Lazarus'е
Спасибо, всё заработала 
- 11.04.2009 11:24:31
- Форум: Lazarus
- Тема: Как отловиь системные клавиши в Lazarus'е
- Ответы: 10
- Просмотры: 7872
Как отловиь системные клавиши в Lazarus'е
Для удобства в моей программе хотел использовать клавиши "влево", "вправо" и т.д. Но, к сожалению, событие OnKeyPress не отлавливают данные клавиши. Проверял таким способом:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
ShowMessage(IntToStr(ord(Key)));
end ...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
ShowMessage(IntToStr(ord(Key)));
end ...
