TreeView als Navigation

[Jackie1983]

Zitat von jaenicke:

Und wie willst du das an die Prozedur übergeben? TMyProcedure = procedure of Object; Ich meinte das so:TMyProcedure = procedure(Param: Pointer) of Object;

Ganz einfach wenn im Tree geklickt wurde greifst du auf Data aus dem Node zu.
Da ist ein Record. Im Record haste deine Procedure abgelegt und die Parameter in Pointer.
Dann liest man die Procedure aus und ruft diese mit den Daten aus dem Pointer auf fertig.

habe es aber jetzt anders gelöst.

Delphi-Quellcode:

type
  TNaviType = (ntMenue1 = 0,
               ntMenue2);

  pTreeNavigation = ^rTreeNavigation;
  rTreeNavigation = record
    Kategorie : TNaviType;
    pData1, pData2 : Pointer;
    sData1, sData2 : string;
  end;

pTreeNavigation wird bei Data hinterlegt.
Wenn auf ein Node geklickt wurde wird das record ausgelesen.
Je nach ntMenue id wird eine andere Procedure aufgerufen.
Die Parameter für die Procedure sind im Pointer.