TTreeNode ableiten

[MasterC]

Hi, ich möchte TTreeNode eine neue Eigenschaft hinzufügen und zwar nicht durch eine neue Klasse wie hier:

Delphi-Quellcode:

Type TParsItem = Class(TTreenode)
 public
 Zeile: Integer;
end;

Ich möchte ja auch durch den Treeview auf die Eigenschaft zugreifen. Deshalb möchte ich TTreeNode direkt eine neue Eigenschaft hinzufügen.

[Christian Seehase]

Moin Ganxta,

dazu könntest Du, als Workaround, die Eigenschaft Data von TTreeNode nutzen.
Hier übergibst Du dann einfach den Pointer auf eine Variable die den zusätzlichen Wert enthält.
In Deinem Falle, einem Integer, kannst Du den Wert auch direkt dort Speichern, Du müsstest nur einen Typecast durchführen.

[MasterC]

Schön und gut, aber kannst du mal bitte ein Bespiel liefern?

MfG ganxta.

[Christian Seehase]

Moin Ganxta,

ja, kann ich: ;-)

Delphi-Quellcode:

var
  Zeile : integer;

begin
  // irgendwas, was Zeile mit einem Wert füllt
  Treeview1.Items[0].Data := Pointer(Zeile);
end;

[MasterC]

Und wie kann ich auf den Pointer von dem Treeview zugreifen?

Delphi-Quellcode:

treeview1.Selected.Data....?

[Christian Seehase]

Moin Ganxta,

indem Du das ganze umdrehst:

Delphi-Quellcode:

var
  Zeile : integer;

begin
  Zeile := integer(Treeview1.Items[0].Data);
end;

[MasterC]

Ahso, THX.