Node eines TreeViews markieren

[s-off]

Args, sorry. War gerade inhaltlich bei ner ListView.

Mit

Treeview1.Items[x].Selected := True; wird bei mir die Node x markiert, also blau hinterlegt. Ich sehe das aber erst, wenn ich dem TreeView den Focus gebe.

Edit:
Hier sieht man es (Sleep nur zur Visualisierung, da keine Hochgeschwindigkeitskamera zur Hand )

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   i: integer;
Begin
   TreeView1.SetFocus;
   For i := 0 To TreeView1.Items.Count - 1 Do Begin
      Treeview1.Items[i].Selected := True;
      Sleep(50);
   End;
End;