Скачать: CL | DM;

Как выбрать 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); порушил все, там пересчитывается все заново, совсем забыл

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c