Kontextmenü in der Entwicklungsumgebung verändern

[SarDGer]

@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