Treeview: von Linksorientierung auf Item schließen

[toms]

Hi,

Weiss nicht, ob ich deine Frage genau verstanden habe,
aber ich würd's so machen:

Delphi-Quellcode:

var
 i: Byte;
begin
 with TreeView1 do
 for i := 1 to 2 do
 begin
  if Items.Count-i >= 0 then
  if TreeView1.Items[Items.Count-i].Level = 0 then
   ShowMessage(TreeView1.Items[Items.Count-i].Text);
 end;