TreeView aus DB füllen

[mkinzler]

In dem du AddChild auf auf den Knoten anwendest, welchem du einen Unterknoten zuordnen willst.

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
var
    node: TTreeNode;
begin
  Gauge1.MinValue:=1;
  Gauge1.MaxValue:=Table1.RecordCount;
  while not Table1.Eof do
    begin
      node:= TreeView1.Items.AddChild(nil, Table1.FieldByName('Feldname').AsString);
      while not Table2.Eof do
      begin 
          TreeView1.Items.AddChild(node, Table2.FieldByName('Feldname').AsString);
          Table2.Next;
      end;
      Table1.Next;
      Gauge1.Progress:=Gauge1.Progress + 1;
    end;
end;

[Edit: DelphiTags vergessen]