[Oreon]

Всем привет, как сделать чтобы ветки TreeView не сворачивались по двойному клику. (По двойному клику разворачиваться должны, но не сворачиваться, сворачиваться лишь - по одинарному клику на значке соответствующей ноды). Заранее спасибо за любую помощь в данном вопросе

[Oreon]

Пробовал через TreeView1Collapsing

Код:

if TreeView1.Tag=1 then begin
  AllowCollapse:=false;
  TreeView1.Tag:=0;
                                   end;

тег устанавливаю в TreeView1DblClick: if qnode.Expanded then TreeView1.Tag:=1;
Но это как-то "не по феншую" и работает коряво - через раз: вроде бы и блокирует сворачивание, но пропускает первый клик по значку ноды и при чередовании кликов по значку и двойного по ноде тоже позволяет свернуть ноду двойным кликом. Может кто подскажет более рабочий и правильный способ?

[Oreon]

Проблему поборол таким способом

Код:

procedure TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
  var p:TPoint;
begin
GetCursorPos(p);
p:=ScreenToClient(p);
if p.X>node.DisplayRect(true).Left then
  AllowCollapse:=false;
end;

Большое спасибо всем откликнувшимся ... Кстати еще не поздно, если кто предложит более красивый (правильный) способ - буду благодарен