| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TTreeView [D7, XP]

Handle ©   (2006-12-04 09:34:00) 

Подскажите пожалуйста как сделать так что бы по двойному щелчку в TTreeView пункт содержащий подпункты не раскрывался, а раскрывался бы только при клике на крестик?

---

Handle   (2006-12-04 11:16:00) [1]

> trubin   (04.12.06 10:54) [1]


Спасибо

---

trubin   (2006-12-04 10:54:00) [2]

Как вариант:


var
 p: TPoint;

...

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
 AllowExpansion:= not PtInRect(Node.DisplayRect(True), p);
end;

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 p.x:= x;
 p.y:= y;
end;

---

Наверх