Hallo Haentschman,
danke erstmal für Deine antwort. Grundlegend könnte ich das so aufbauen. Aber trotzdem stelle ich mir die Frage, warum das so ist. Im OnInit des VST sagen ich den Nodes doch, das Sie Childs haben.
Delphi-Quellcode:
procedure TfReportClient.vstKundenInitNode(Sender: TBaseVirtualTree; ParentNode,
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
case vstKunden.GetNodeLevel(Node) of
1:
begin
vstKunden.HasChildren[Node] := True;
end;
2:
begin
vstKunden.HasChildren[Node] := True;
end;
3:
begin
vstKunden.HasChildren[Node] := True;
end;
end;
end;
Nach dem Programmstart, ist das auch so im VST ersichtlich. Nur wenn ich suche, wird das "+"+ zum öffnen der Childs nicht mehr angezeigt. Doppelklick öffnet aber das Child.