hier ist eine Lösung die auch gleich Zwischenergebnisse überprüft:
Delphi-Quellcode:
function GetNodeByTitle(Titel: String): PVirtualNode;
var
Data: PTreeData;
Node: PVirtualNode;
begin
Result := nil;
with MainFrm do
begin
Node := VSTListe.GetFirst();
while Assigned(Node) and (Result = nil) do
begin
Data := VSTListe.GetNodeData(Node);
if Assigned(Data) and (Data.Titel= Titel) then
Result := Node;
Node := VSTListe.GetNext(Node);
end;
end;
end;
Fokussieren des Nodes:
Delphi-Quellcode:
procedure Foo();
var
MyNewFocusedNode: PVirtualNode;
begin
MyNewFocusedNode := GetNodeByTitle('bla');
if Assigned(MyNewFocusedNode) then
VSTListe.FocusedNode := MyNewFocusedNode;
end;