Events weiterreichen

[_frank_]

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