Текущий архив: 2006.12.24;
Скачать: 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 вся ветка
Текущий архив: 2006.12.24;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.043 c
