TEdit mit TPopupMenu

[Meriones]

Hallo allerseits,

ich bastel gerade eine Edit Komponente mit einem integrierten Popup Menu. (wie z.B. beim Suchfeld im Firefox rechts oben).
Das TPopupMenu wird im constructor der TEdit Komponente erstellt.

Soweit so gut, jetzt würde ich gerne den Menudesigner des TPopupMenu bei den properties des TEdit Feldes veröffentlichen,
bekomme es aber nicht hin ...

Hier mal ein bissl code:

Delphi-Quellcode:

  TGridSearch = class(TCustomEdit)
  private
    FPopMenu: TPopupMenu;
    function  GetMenuItem:TMenuItem;
  public
    constructor Create(AOwner: TComponent); override;  
  published 
    property MenuItems: TMenuItem read GetMenuItem;
  end;

constructor TGridSearch.Create(AOwner: TComponent); 
begin
  FPopMenu:=TPopupMenu.create(self);
end;

function  TGridSearch.GetMenuItem:TMenuItem;
begin
  result:=FPopMenu.Items;  
end;

So klappts leider nicht, das Edit hat zur designtime NICHT den Menudesigner des PopupMenus...

Wie komme ich an den Menudesigner vom TPopupMenu heran????
Hat jemand eine Idee???

Grüsse, meriones

[taaktaak]

Moin, Moin,
mal so aus der "Hüfte geschossen": Macht eine Nur-Lesen Property "MenuItems" im OI Sinn? Du willst dort doch Werte eintragen können, oder? Also zumindest fehlt dann ein "write". Ob das dann allerdings schon die Lösung ist...

[Meriones]

@taaktaak

völlig richtig. Habs auch schon mit einer write procedure fürs property versucht

Delphi-Quellcode:

property MenuItems: TMenuItem read GetMenuItem write SetMenuItem; 

procedure TGridSearch.SetMenuItem(value:TMenuItem);
begin
  FPopMenu.additem(value);  
end;

ging aber leider auch nicht.

Und in der Klasse TMenu ist das property items auch nur lesbar. Ich dachte halt das der MenuDesigner so im Object inspector sichtbar wird...


:gruebel: meriones

[thabaker]

Probier doch mal das ganz Popupmenü zu veröffentlichen, aber bitte nur lesend, denn du erstellst es ja auch selber. sonst (+schreiben) könnte jeder im Objektinspektor ein anderes Popupmenü zuweisen.