OnKeyDown im kompletten Programm

[Hawkeye219]

Hallo,

ich würde es mit einer TAction versuchen oder mit dem Ereignis TForm.OnShortCut:

Delphi-Quellcode:

procedure TForm1.FormShortCut (var Msg: TWMKey; var Handled: Boolean);
const
  StrgA = scCtrl or Ord('A');
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
  if (Key = StrgA) then
    begin
      ShowMessage ('Hallo Welt!');
      Handled := True;
    end;
end;

Ob dies auch für die Multimediatasten funktionert, kann ich dir allerdings nicht sagen. Möglicherweise kommst du da um eine direkte Verarbeitung von Messages nicht herum.

Gruß Hawkeye