Registriert seit: 27. Sep 2004
86 Beiträge
|
Re: Treeview: einen Knoten per code blau markieren
15. Okt 2004, 10:18
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;
|