Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

Развернуть узел дерева с помощью клавиатуры 


forrest1   (2002-02-15 09:57) [0]

Доброе утро, господа!
Подскажите, как развернуть определённый узел дерева при нажатии какой-нибудь клавиши клавиатуры.
Я пишу следующее
procedure TEnterpriseF.TreeView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var r :boolean;
begin
r:=True;
case Key of
13 : begin // клавиша Enter
i:=0;
While (not TreeView1.Items[i].Selected) and (i<TreeView1.Items.Count) do
i:=i+1;
TreeView1Expanding(TreeView1,TreeView1.Items[i],r);
end;
end;
end;
Но после выполнения этого - никакого результата!
помогите, pls
Спасибо!



McSimm   (2002-02-15 10:20) [1]

TreeView1Expanding похоже является вызовом события OnExpanding.

Все наоборот. Это событие должно вызывать обработчик.

Чтобы развернуть элемент, надо либо установить его св-во Expanded := True; либо вызвать метод Expand(True/False), где в качестве параметра можно указать - разварачивать рекурсивно или только этот элемент.

if Assigned(TreeView1.Selected) then
TreeView1.Selected.Expand(True);



troits   (2002-02-15 10:23) [2]

Не понятно, что ты хочешь.
Зачем перебирать все узлы дерева?
Во - первых, это долгая операция, лучше к узлам вообще так не обращаться, а, во - вторых, получить selected - узел можно с помощью TreeView1.Selected . А "развернуть" его - TreeView1.Selected.Expand



forrest1   (2002-02-15 10:32) [3]

Огромное спасибо всем, кто ответил!!!
Мастерство не пропьёшь. :))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
1-9231            Shoo                  2002-02-15 16:54  2002.03.04  
Констант-массив


3-9079            СергейКнязев          2002-02-06 11:48  2002.03.04  
Помогите найти ошибку в запросе СРОЧНО


1-9204            Loxly                 2002-02-14 20:24  2002.03.04  
Непонятки с обработчиком события OnKeyDown


3-9085            HDD                   2002-02-06 01:27  2002.03.04  
Помогите пожалуйста срочно нужно. Очень срочно


1-9176            programmer1           2002-02-12 10:22  2002.03.04  
Смысл типа TVarBytesField