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

TTreeView   Найти похожие ветки 

← →
Handle ©   (2006-12-04 09:34) [0]

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

---

← →
trubin   (2006-12-04 10:54) [1]

Как вариант:


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;

---

← →
Handle ©   (2006-12-04 11:16) [2]

> trubin   (04.12.06 10:54) [1]


Спасибо

---

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

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



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