[vtdeleon]

Saludos

Con el evento Collapsing puedes controlarlo

Código Delphi [-]
procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
begin
  AllowCollapse:=False;
end;