Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Igotcha,
28. Mär 2006
Jaja, die Frage hatte wahrscheinlich jeder mal, der mit dem VST arbeit, die Lösung sieht eher "unglaublich" aus, funktioniert aber reibungslos und hochperformant:
function FindPLANNodeByGroupID(aTree: TBaseVirtualTree; gID: Integer): PVirtualNode;
var
NodeData: pPlanData;
begin
Result := aTree.GetFirst;
while Assigned(Result) do
begin
NodeData :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Igotcha,
25. Mär 2006
Da gibt es:
VST.Getfirst();
VST.GetNext(PVirtualNode);
VST.GetNextSibling(PVirtualNode);
Dann durchläufst Du den VST mit folgendem Code:
myNode:=VST.getfirst;