Цитата:
|
Сообщение от Winny
Как узнать номер клавиши клавиатуры, чтобы можно из Delphi делать манипуляции с ней? Заранее спасибо
|
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(Chr(Key) + ' = ' + IntToStr(Key));
end;