procedure TMainFormDemo.Button1Click(Sender: TObject); var i: integer; TreeNode : TTreeNode; const SearchStr = 'Parent2'; begin for i := 0 to TreeView2.Items.Count - 1 do begin TreeNode := TreeView2.Items[i]; if TreeNode.Text = SearchStr then begin ShowMessageFmt('%s trouvé à la position %d', [SearchStr, i]); TreeView2.Select([TreeNode]); end; end; end;
procedure TMainFormDemo.Button1Click(Sender: TObject); var i: integer; TreeNode : TTreeNode; const SearchStr = 'Parent2'; begin for i := 0 to TreeView2.Items.Count - 1 do begin TreeNode := TreeView2.Items[i]; if TreeNode.Text = SearchStr then begin ShowMessageFmt('%s trouvé à la position %d', [SearchStr, i]); TreeView2.Select([TreeNode]); Break; end; end; end;