Treeview: einen Knoten per code blau markieren

[valon]

Hallo !


ich möchte in einem Treeview einen Knoten per code blau markieren . so wie es die Gestalt annimmt wenn es angeklickt wird.

Ich habe es mit TreeNode.Selected:=true versucht doch es passiert nichts.
Und welche Komponente muss den Focus besitzen.

Ich hoffe ihr könnt mir helfen

[Treffnix]

Und warum machste jetzt noch nen Thread auf?

http://www.delphipraxis.net/internal...ct.php?t=36770

[valon]

Sorry , bin erst seit ner Woche hier. Ich dachte das alte würde dann nicht mehr auf der
Liste mit den aktuellen Themen stehen, und so würde es dann keiner sehen. Aber es ist wohl anders.
Kannst mir trotzdem helfen?

[Treffnix]

Haste mal versucht, was in dem anderen Thread steht?

Treeview.HideSelection := False; bzw. im Objektinspektor den Wert auf False setzen

und dann mit Treenode.Selected := True und Treenode.Focused := True das Node markieren.

Bin mir nicht sicher ob das klappt und hab auch leider gerade nicht die Zeit zu testen, aber probier das mal aus und wenns nicht klappt, oder du was nicht verstanden hast, dann fragste nach.

[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;

[Sharky]

Hai,
da es ja schon einen Thread zu der Frage gibt mache ich diesen hier mal zu.