Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.11.21;
Скачать: 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 вся ветка

Текущий архив: 2010.11.21;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
15-1281269628
Baks
2010-08-08 16:13
2010.11.21
MySQL в Delphi 5


3-1242624205
Константин
2009-05-18 09:23
2010.11.21
Interbase - работа по сети


15-1281454327
pasha_golub
2010-08-10 19:32
2010.11.21
Курсы валют центробанка Украины


2-1283188549
Hapastiks
2010-08-30 21:15
2010.11.21
Ошыбка функцыи


15-1281731393
Юрий
2010-08-14 00:29
2010.11.21
С днем рождения ! 14 августа 2010 суббота