Tasten und Windows Messages

[SirThornberry]

Delphi-Quellcode:

[...]
  private
    procedure WMHotKey(var Msg: TWMHotKey); Message WM_HOTKEY;
[...]
procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
 if Msg.idHotKey = 1 then
 begin
   //Alt + Y
 end;
 if Msg.idHotKey = 2 then
 begin
   //Alt + Z
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle, 1, MOD_Alt, Ord('Y'));
  RegisterHotKey(Form1.Handle, 2, MOD_Alt, Ord('Z'));
end;

procedure TForm1.FormClose(......
begin
  UnregisterHotKey(Self.Handle, 1);
  UnregisterHotKey(Self.Handle, 2);
end;

[edit=Luckie]Delphi-tag korrigiert. Mfg, Luckie[/edit]