TreeView als Navigation

**Jackie1983**

Servus,

ich habe 5 Buttons. Je nach Button werden anderen Werte ins TreeView geschrieben.
Angenommen ich habe so ein TreeView

markieren

Delphi-Quellcode:

			[-] Menü_1

 .....Untermenü_1

 .....Untermenü_2

[+] Menü_2

[-] Menü_3

 .....Untermenü_1

Wenn ich jetzt auf Menü_1 oder Untermenü_1 klicke möchte ich das eine Funktion aufgerufen wird.
Die Funktion braucht aber auch übergabenparameter.
Habe mir überlegt es so zumachen

zusammenfalten · markieren

Delphi-Quellcode:

			TMyProcedure = procedure of Object;

TNaviTree = record

  proc : TMyProcedure;

  parameter : pointer;

end;

//...

var

  navi : TNaviTree;

begin

  //schleife

  new(navi);

  navi.proc := blabla;

  navi.parameter := daten;

  //im tree einfügen

end;

was meint ihr, die idee so gut oder hat jemand ne andere Idee?
Gruß

TreeView als Navigation

TreeView als Navigation

Forumregeln