Treeview: einen Knoten per code blau markieren

[valon]

Irgendwie funitoniert das nicht. Wenn er die Funktion verlässt, das hat er doch wieder nicht den Focus. oder?


Das ist eine funktion die einen Treeview bis zu einem in einem StringList befindlichen Pfad öffnet, und die in diesem Verzeichniss enthaltenen Dateien in einer ListBox anzeigt.
Wenn die Funktion zuende ist , dann soll er das letzte Verzeichnis, das diese Dateien enthält blau markieren. Habs dir vielleicht schlecht erklären können.


procedure Tform1.updatecontrols;
var
i: Integer;
TreeNode:TTreeNode;

begin

if FDriveletter <>'' then
Verzeichnisse_Einlesen(TreeView1,Self.FDriveletter +':\',nil,false)
else exit;

if FDirectory <>'' then
begin
TreeNode:=Treeview1.TopItem;
i:=0;

while((TreeNode <> nil) and (i < StringList.Count)) do
begin
if (Comparetext(TreeNode.Text,StringList[i])=0) then
begin
Listbox1.Items.clear;
getDirs(FDriveletter+':\'+getPath(TreeNode),ListBo x1.Items);
TreeNode.Expand(False);


Treeview1.HideSelection :=False;
Treenode.Focused := true;
Treenode.Selected:=True;


i:=i+1;
TreeNode:=TreeNode.GetFirstchild;
end

else TreeNode:=TreeNode.GetNextSibling;
end;

end
else exit;

end;