Розгорнути вузол дерева за допомогою клавіатури
Доброго ранку, панове!
Підкажіть, як розгорнути певний вузол дерева при натисканні якої-небудь клавіші клавіатури.
Я пишу наступне
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
TreeView1Expanding (TreeView1, TreeView1.Items [i], r);
end;
end;
end;
Але після виконання цього - ніякого результату!
допоможіть, pls
Дякуємо!
TreeView1Expanding схоже є викликом події OnExpanding.
Все навпаки. Ця подія має викликати оброблювач.
Щоб розгорнути елемент, треба або встановити його св-во Expanded: = True; або викликати метод Expand (True / False), де в якості параметра можна вказати - разварачівать рекурсивно або тільки цей елемент.
if Assigned (TreeView1.Selected) then
TreeView1.Selected.Expand (True);
Не зрозуміло, що ти хочеш.
Навіщо перебирати всі вузли дерева?
По - перше, це довга операція, краще до вузлів взагалі так не звертатися, а, по - друге, отримати selected - вузол можна за допомогою TreeView1.Selected. А "розгорнути" його - TreeView1.Selected.Expand
Величезне спасибі всім, хто відповів.
Мастерство не проп'єш. ))