TreeView - Werte zum Item speichern

[Salomon]

hallo,
wie kann ich zu einem TreeView Item zusätzliche Infos speichern? z.B. einen Pointer auf eine eigene Datenstruktur?

Delphi-Quellcode:

var anode:TTreeNode;
  anode := TreeView.Items.Add(nil,'Root');
  TreeView.Items.AddChild(anode, 'First Child');

Die Funktionen zum Einfügen der Items habe dafür keine Option.

Gruß
Marcus

[Deep-Sea]

TreeView.Items.AddChildObject

[Salomon]

Genau das habe ich gesucht

[Salomon]

Okay, ich habe jetzt ein dynaisches Element an das Treeview Item gehängt. Jetzt könnte ich noch einen Tipp gebrauchen mit welchem Befehl ich wieder an das Datenelement rankomme Sowas wie "GetChildObject"

Für interessierte, so habe ich ein dynamisches Element erstellt und an ein TreeView Item gehängt.

Delphi-Quellcode:

Type
  TElementPointer = ^TElement;

  TElement = record
    DBKey : integer;
end;



procedure TFRM_AM_Administration.Button19Click(Sender: TObject);
var  anode : TTreeNode;
   Pointer, Element : TElementPointer;
begin
  new (Element);
  Element.DBKey := 1;
  Pointer := Element;

  //showmessage(IntToStr(Pointer^.DBKey));

  TreeView.Items.AddChildObject(nil,'Hidden Data', Pointer);
end;

[Deep-Sea]

D2006 Hilfe:

Zitat:

TTreeNode.Data Eigenschaft

Zeigt auf die Daten, die mit einem Baumknoten verbunden sind.

[Salomon]

Darauf bin ich auch gestoßen. Allerdings habe ich es noch nicht zum Laufen gebracht.

Der folgende Code lässt sich compilieren, allerdings bekomme ich einen "Listindex put of bound" Fehler. Egal ob ich 0 oder 1 als Item angeben.
Ich würde gerne an die Daten des selektierten Elementes kommen. Wundert mich, das ich da bei Item noch was angeben muss.

Delphi-Quellcode:

procedure TFRM_AM_Administration.Button20Click(Sender: TObject);
var Pointer : TElementPointer;
begin
  Pointer := TreeView.Selected.Item[1].Data;

  showmessage(IntToStr(Pointer^.DBKey));
end;

[Deep-Sea]

Mit "TreeView.Selected.Item[1].Data;" würdest du doch auf das 2. SubItem des Selektieren zeigen, müsste es nicht "TreeView.Selected.Data;" heißen?

[marabu]

Hallo,

besser so:

Delphi-Quellcode:

procedure TFRM_AM_Administration.Button20Click(Sender: TObject);
var 
  pElement: TElementPointer;
begin
  if Assigned(TreeView.Selected) and Assigned(Treeview.Selected.Data) then
  begin  
    pElement := TreeView.Selected.Data;
    ShowMessage(IntToStr(pElement.DBKey));
  end;
end;

[Salomon]

@marabu: Das funktioniert sehr gut