Hallo,
mit der Botschaft WM_MENURBUTTONUP kann ich eine Klick mit der rechten Maustaste auf ein Item eines Mainmenüs abfangen, was soweit auch funktioniert.
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure OpenPopup(var Msg: TMessage); message WM_MENURBUTTONUP;
...
procedure TForm1.OpenPopup(var Msg: TMessage);
begin
Label1.Caption:=inttostr(Msg.LParam)+' '+inttostr(Msg.WParam);
TrackPopupMenuex(PopUpMenu1.Handle, TPM_RECURSE, Mouse.CursorPos.x, Mouse.CursorPos.y, self.Handle, nil);
end;
Aber wenn ich das Mainmenu von der Form nehme und in eine Toolbar packe, reagiert mein Programm nicht mehr auf diese Windows-Botschaft! Warum????????
Kann es sein das die Toolbar die Botschaft vorher abfängt, wenn ja wie kann ich das verhindern???
Hat jemand eine Idee, wie ich das hinbekommen kann???
Danke...
MfG