Einzelnen Beitrag anzeigen

Jackie1983

Registriert seit: 12. Mär 2007
486 Beiträge
 
#1

TreeView als Navigation

  Alt 14. Aug 2009, 07:17
Servus,

ich habe 5 Buttons. Je nach Button werden anderen Werte ins TreeView geschrieben.
Angenommen ich habe so ein TreeView
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
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ß
  Mit Zitat antworten Zitat