Meine Hoffnung lag hier drinnen, nur weiß ich noch nicht was ich da machen muss.
Delphi-Quellcode:
type
TfrmMain = class(TForm)
MainMenu: TMainMenu;
private
procedure WMMenuChar(var message: TWMMenuChar); message WM_MenuChar;
end;
var
frmMain: TfrmMain;
implementation
procedure TfrmMain.WMMenuChar(var message: TWMMenuChar);
begin
inherited;
// was müsste hier rein?...
end;