Как выбрать TTreeNode? Аналогично, если по нему кликнули мышкой

← →
12 © (2010-08-25 10:33) [0]

Пишу

procedure TfrmSubscriber.edtLocateChange(Sender: TObject); var ANode, ANode2: TTreeNode; begin if length(edtLocate.Text) > 1 then begin ANode := tvSubscr.Items.GetFirstNode; while ANode <> nil do begin if pos(edtLocate.Text, ANode.Text) <> 0 then begin ANode2 := ANode; while ANode2.Parent <> nil do ANode2 := ANode2.Parent; ANode2.Expand(true); // tvSubscr.Select(ANode); // не // ANode.Selected := true; // не ANode.Focused := true; // не Exit; end; ANode := ANode.GetNext; end; end; end;

т.е. Node находится под отладчиком, и потом, когда развернутся все Parent, его видно. Но не selected он. Как его сделать selected?

← →
12 © (2010-08-25 10:45) [1]

вопрос снимается
ANode2.Expand(true); порушил все, там пересчитывается все заново, совсем забыл

Как выбрать TTreeNode? Аналогично, если по нему кликнули мышкой Найти похожие ветки