Delphi

Вопрос

Как узнать коды клавиш, которые не выводятся методом:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
caption:=inttostr(ord(key));

Т.е узнать коды функциональных клавишь, Insert, Delete, PageUp…

Ответ

Для их отлова надо использовать события OnKeyDown/OnKeyUp.

Они получают код любой, не только символьной клавиши.
Эти коды можно найти в виде констант вида VK_??? в файле windows.pas.

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_INSERT then
ShowMessage('"Insert" pressed');
end;

Из конференции Expert_FAQ