Tutorial Komponentenentwicklung/Erweitertes Popup Menu: Unterschied zwischen den Versionen
Aus DGL Wiki
Flo (Diskussion | Beiträge) (Gehoert zum Komponentenentwicklungs Tutorial) |
(kein Unterschied)
|
Version vom 29. November 2005, 19:03 Uhr
Dieser Artikel gehört zum Tutorial Komponentenentwicklung
Wem das noch nicht reicht, der kann zusätzlich noch die Prozedur PrepareItem überscheiben um die eigenen Menupunkte noch zu manipulieren.
type TFarbAuswahlComponentEditor = class(TComponentEditor) procedure ExecuteVerb(Index: Integer); override; function GetVerb(Index: Integer): string; override; function GetVerbCount: Integer; override; procedure PrepareItem(Index: Integer; const AItem: TMenuItem);override; procedure MeineEreignis(Sender:TObject); end; procedure TFarbAuswahlComponentEditor.PrepareItem(Index: Integer; const AItem: TMenuItem); var MyMenuItem:TMenuItem; begin inherited; Case Index of 0: AItem.Enabled := False; //Einfach mal deaktivieren 1: begin MyMenuItem := TMenuItem.create(AItem); AItem.Add(MyMenuItem); MyMenuItem.Caption := 'Info'; MyMenuItem.onClick := MeineEreignis; end; end; end;