[Winny]

Как узнать номер клавиши клавиатуры, чтобы можно из Delphi делать манипуляции с ней? Заранее спасибо

[mav_c]

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

Как узнать номер клавиши клавиатуры, чтобы можно из Delphi делать манипуляции с ней? Заранее спасибо

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(Chr(Key) + ' = ' + IntToStr(Key));
end;

[mav_c]

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

Как узнать номер клавиши клавиатуры, чтобы можно из Delphi делать манипуляции с ней? Заранее спасибо

по Windows.pas ищем VK_* - там и все константы кодов

[Winny]

Спасибо огромное!