Eliminar hijos de un nodo padre en treeview

[Fat]

En muchas ocasiones lo que creemos que es un marrón por resolver la solución es la más simple posible.

Gracias Roman por la idea que al final es la solución que he utilizado y la que creo es la más simple.

solo hacer el apunte de restar -1 ya que sino cuenta el nodo y el conteo siempre es = 1

Código Delphi [-]
if Node.Count - 1 = 0 then

Con el ejemplo de Roma sería

Código Delphi [-]
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
    if Node.Count = 1 then
    begin
    
        // Lees los hijos
    
    end;
end;

Muchas gracias a todos por su apreciada ayuda.


Un saludo