Moin,
ich bastel grade an meinem MenuEditor
code sagt mehr als 1000 Worte
Delphi-Quellcode:
TChangeEvent = procedure (Sender: TObject;Index:Integer) of object;
TMenuEntry=class(TComponent)
private
...
FMenu:TMenuEditor;
....
published
property SubMenu:TMenuEditor read FSubMenu write FSubMenu;
property Menu:TMenuEditor read FMenu;
end;
TMenuEditor=class(TListbox)
private
....
FOnAdd,FOnDelete,FOnChange:TChangeEvent;
protected
procedure SetAddEvent(e:TChangeEvent);
...
public
property Entries[index:integer]:TMenuEntry read GetEntry;
published
property OnAdd:TChangeEvent read FOnAdd write SetAddEvent;
...
end;
TMenuEditor hat TMenuEntries für jedes Element...TMenuEntry kapselt ein Element (Menüeintrag),
Das Menü ist kaskadierbar, d.h. jeder dieser Einträge kann einen weiteren editor beinhalten.
nun will ich, dass beim setzen der events des obersten TMenuEditor die events weiter unten auch gesetzt werden. dazu hab ich für die Events folgende Setter-Methode (bei den beiden anderen Events genauso nur halt mit FOnChange/FOnDelete):
Delphi-Quellcode:
procedure TMenuEditor.SetAddEvent(e:TChangeEvent);
var i:integer;
begin
FOnAdd:=e;
for i:=0 to items.count-1 do
begin
if assigned(Entries[i].Submenu) then
Entries[i].Submenu.OnAdd:=e;
end;
end;
leider bekomme ich beim beenden meiner Test-Applikation eine "ungültige Zeigeroperation".
ich habe die Test-anwendung mal angehängt (vererbung momentan auskommentiert).
Hoffe, jemand hat eine Idee, wie man das gewünschte (evtl. auch anders) realisieren kann.
//Edit:
habe auch schon versucht folgendes am ende der Procedure LoadMenuFromTreeview einzubauen mit gleichem ergebnis:
Delphi-Quellcode:
Editor.OnAdd:=form1.MenuAdd;
Editor.OnDelete:=form1.MenuDelete;
Editor.OnChange:=form1.MenuChange;
Gruß Frank