@choose - danke nochmal für die Links aber die muss ich mir
mal in Ruhe reinziehen, ist ja auch was mehr Text.
Ich ha aber 'ne ander Lösung gefunden.
Vielleicht hilft das ja auch jemanden, also poste ich das mal.
Ist kurz, simpel und natürlich
wiedermal 'ne Holzhammerlösung (wenn nix mehr geht hau feste drauf) :
Delphi-Quellcode:
interface Part:
TMyComponent = Class(TCustomControl)
private
protected
procedure WndProc(var Message: TMessage); override;
public
published
end;
implementation Part:
procedure TMyComponent.WndProc(var Message: TMessage);
Var
P : TPopupMenu;
begin
if (csDesigning in ComponentState) then
Begin
if Message.Msg = WM_RBUTTONUP then
Begin
// erstmal die eigentliche Message umbiegen,
// löschen geht nicht, also was einsetzten
// was nix auslöst, z.B.: WM_LBUTTONUP
Message.Msg := WM_LBUTTONUP;
// jetzt das eigene Kontextmenü kreiren
P := TPopupMenu.Create(nil);
P.Items.Add(TMenuItem.Create(nil));
P.Items[P.Items.Count -1].Caption := 'Test1';
P.Items.Add(TMenuItem.Create(nil));
P.Items[P.Items.Count -1].Caption := 'Test2';
// an der aktuellen MausPos aufrufen
P.Popup(Self.ClientOrigin.X + Message.LParamLo, Self.ClientOrigin.Y + Message.LParamHi);
end;
inherited WndProc(Message);
end
else
inherited WndProc(Message);
end;
Ich werde mir noch ein eigenes Popup Menü schreiben wo ich von
P.Popup ein Ergebniss zurückbekomme das mir sagt welches MenuItem
ausgewählt wurde, damit ich da vernünftig drauf reagieren kann.
Hoffe das hilft jemanden.
Wenn jemand eine bessere Lösung hat (und die gibt es mit Sicherheit)
bitte posten !!!
Grüsse,
Sar