[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;

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