Tastendruck bei geöffnetem TMainMenu abfangen

[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;