[dec]

Hola,

Tal vez algo así:

Código Delphi [-]
procedure TForm1.TreeView1Expanding(Sender: TObject;
  Node: TTreeNode; var AllowExpansion: Boolean);
begin
  if Node.Text = 'Nodo padre 2' then
    AllowExpansion := false;
end;