Hallo,
Wenn ich eine Nachricht abfange, und zwar so:
Delphi-Quellcode:
procedure TFormMain.WMMENUCHAR(var Msg: TMessage);
begin
inherited;
if msg.WParamLo = ord('a') then // Catch Alt + a
begin
Msg.ResultHi := MNC_CLOSE;
end else
begin
// Send Shortcut
Msg.Result := SendMessage(MainMenu1.Handle, Msg.Msg, Msg.Wparam, Msg.LParam);
end;
end;
dann soll, wenn nicht Alt + A gedrückt ist, der Shortcut wie gewohnt ans MainMenu weitergeleitet werden. Egal, ob ich das
Handle der Form oder des MainMenus angebe, die Message wird nicht gesendet. Wo liegt mein Denkfehler?