Druck auf F1 global abfangen

[toms]

Oder TApplicationEvents verwenden:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
   If (Msg.CharCode = VK_F1) Then
     ShowMessage('F1');
end;