Главная страница
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.008 c
15-1281378423
crab
2010-08-09 22:27
2010.11.21
Требуется c++ -> delphi конвертор


15-1281528325
@!!ex
2010-08-11 16:05
2010.11.21
Простая программа для обновления установленного ПО


2-1282718003
12
2010-08-25 10:33
2010.11.21
Как выбрать TTreeNode? Аналогично, если по нему кликнули мышкой


15-1281276816
Кто б сомневался
2010-08-08 18:13
2010.11.21
Литр пива в России


2-1282634473
mefodiy
2010-08-24 11:21
2010.11.21
Просмотр результата SELECT по строкам в функции MySQL