Delphi positioning TreeView

ProcedureTfmxx.btnfindclick (Sender:tobject);VarI:integer;BeginInherited;For I: =0To BTvCity.Items.Count-1DoBegin{If the text box matches}If Btvcity.items[i]. Text = Edtnodetext.textThenBegin{When there is a parent class, let the TV automatically locate by closing the Expand parent class}If Btvcity.items[i]. Parent <>NilThenBeginBtvcity.items[i]. parent.expanded: =False; Btvcity.items[i]. parent.expanded: =end else begin { Let TV automatically locate  by turning off the expand parent class  Btvcity.items[i]. Expanded: = False; Btvcity.items[i]. Expanded: =end; { Select the current loop item and exit the loop, or he will cycle to the last waste } Btvcity.items[i]. Selected: =end; end; End;                 

Reference
Http://www.cnblogs.com/yilongm/archive/2013/01/16/2863546.html

Delphi positioning TreeView