Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#1

Abgefangene Message auswerten und evtl. doch noch senden

  Alt 11. Jan 2006, 23:42
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?
  Mit Zitat antworten Zitat