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

Узел у TTreeView   Найти похожие ветки 

← →
Scali   (2002-09-13 14:29) [0]

Уважаемые Мастера может кто подскажет как на событие OnExpanded
(раскрытие узла),узел автоматически получал фокус или , не раскрывать узел пока этот узел не получит фокус (не будет выделен)
с уважением Scali

---

← →
Рыжик ©   (2002-09-13 14:40) [1]

> узел автоматически получал фокус

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
Node.Selected:=true;
end;

> не раскрывать узел пока этот узел не получит фокус (не будет
> выделен)

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
AllowExpansion:=Node.Selected;
end;

---

← →
ole ©   (2002-09-13 14:54) [2]

проще кажется использовать автоэкспанд...
тогда ничего не надо делать вообще...

---

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

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



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