[D7] Utilisation d'un TreeView
Bonjour,
je veux réduire un Treeview du nœud 1 au dernier nœud et je veux qu'un fin d'opération le noeud 0 soit affiché et sélectionné en première ligne (en haut) .
J'ai essayé ceci qui ne fonctionne pas : la dernière ligne du TreeView est affichée en bas du TreeView :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| { ===================================================================== }
procedure TF_Princ.Btn_ReductClick(Sender: TObject);
// Réduire le Treeview
Var
i : Integer ;
Begin
TvXML.Items.BeginUpdate ;
For i:=1 to TvXML.Items.Count-1 do
Begin
TvXML.Items.Item[i].Collapse(False) ;
End ;
TvXML.Items.EndUpdate ;
TvXML.Selected := TvXML.Items.Item[0] ;
{ autres essais infructueux :
TvXML.items.GetFirstNode;
TvXML.Items.Item[0].Selected := True ;
TvXML.Items.Item[0].Focused := True ;
}
End;
{ ===================================================================== } |
Quelqu'un sait il comment faire ?
Merci
A+
Charly