Hallo Christian,
vieles wird leichter, wenn du den Primärschlüssel (Annahme PK, Typ INTEGER) mitführst:
Delphi-Quellcode:
while not t1.Eof do
begin
n := b.Items.AddChildObject(nil,
t1.FieldByName('Feldname1').AsString,
Pointer(t1.FieldByName('PK').AsInteger)
);
t2.First;
while not t2.Eof do
begin
b.Items.AddChild(n,
t2.FieldByName('Feldname2').AsString,
Pointer(t2.FieldByName('PK').AsInteger)
);
t2.Next;
end;
t1.Next;
end;
Dann kannst du über die Ereignisse der TreeView die Positionierung in den DataSets vornehmen.
Grüße vom marabu