Tastendruck bei geöffnetem TMainMenu abfangen

[tofse]

Hallo,
gibt es eine Möglichkeit, bei geöffnetem TMainMenu das Drücken einer Taste abzufangen bzw. abzufragen ?
Beim Formular habe ich KeyPreview := true gesetzt und verwende dort onKeyDown. Leider reagiert die Methode nur, wenn das MainMenu geschlossen ist.

Allerdings lautet die Anforderung, im MainMenu auf eine bestimmte Taste zu reagieren.

Hat jemand einen Tipp ?
Danke
Christof

[DeddyH]

Meinst Du jetzt einen Hotkey?

[ASM]

Zitat von tofse:

Hat jemand einen Tipp ?

Ja.

Code:

Const 
  VK_D = ord('D');
  VK_W = ord('W');
  // .. oder was benötigt wird  

Type
  TForm1 = class(TForm)
  {...}
  private
     { Private-Deklarationen }
     procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;
  {...}
  end;
        
procedure TForm1.WmMenuChar(var m : TMessage);
begin
  if GetKeyState(VK_W) and 128 = 128 then mach_dies
  else
    if GetKeyState(VK_D) and 128 = 128 then mach_das;
  m.Result := 1 ;
end;

[tofse]

Danke!!!

Zitat von ASM:

Zitat von tofse:

Hat jemand einen Tipp ?

Ja.

Code:

Const 
  VK_D = ord('D');
  VK_W = ord('W');
  // .. oder was benötigt wird  

Type
  TForm1 = class(TForm)
  {...}
  private
     { Private-Deklarationen }
     procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;
  {...}
  end;
        
procedure TForm1.WmMenuChar(var m : TMessage);
begin
  if GetKeyState(VK_W) and 128 = 128 then mach_dies
  else
    if GetKeyState(VK_D) and 128 = 128 then mach_das;
  m.Result := 1 ;
end;