Как отловить нажатие клавиш F1..F10
Как отловить нажатие клавиш F1..F10
Как отловить нажатие клавиш F1..F10 procedure TForm1.AppMessage(var Msg:TMsg; var Handled: Boolean); begin case msg.wParam of VK_F1..VK_F10 : case Msg.message of WM_KEYUP: ShowMessage('Key up'); WM_KEYDOWN: ShowMessage('Key down'); end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end;
