Как выбрать TTreeNode? Аналогично, если по нему кликнули мышкой
12 © (2010-08-25 10:33:00)
Пишу
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:00) [1]
вопрос снимается
ANode2.Expand(true); порушил все, там пересчитывается все
заново, совсем забыл
Наверх 
ЧАТ |
Орешник |
|
