Du must vor der
DB-Abfrage erstmal den Node rausfinden, der selektiert ist. Über eine rekursive Suche mit Hilfe der selected-Eigenschaft geht das ungefähr so:
Delphi-Quellcode:
function SearchNode(Aroot:TTreenode):TTreenode;
var
i : integer;
begin
result := NIL;
for i := 0 to Aroot.childcount -1 do
begin
node := Aroot.Childnodes[i];
if TreeView1.selected[node] then
begin
result := node;
break;
end
else
begin
if (node.childcount > 0) then
result := SearchNode(node);
if result <> NIL then exit;
end;
end;
end;
Das ganze ist jetzt frei aus dem Gedächtnis gebaut und wird so 1:1 nicht funktionieren, sollte aber das Prinzip verdeutlichen.
Danach hast du den Node und kannst mit Hilfe des Textes die
DB-Abfrage machen
