TreeView - Archiv erstellen

[marabu]

Hallo,

wenn du dir in der Delphi Online Hilfe die Klasse TTreeNode anschaust, dann findest du die Eigenschaft "Level". Die solltest du für
deine Zwecke nutzen können.

Delphi-Quellcode:

procedure TDemoForm.TreeViewClick(Sender: TObject);
begin
  with Sender as TTreeView do
    case Selected.Level of
      0: ChangeFolder(Selected.Text);
      1: ChangeDocument(Selected.Text);
    end;
end;

Grüße vom marabu