Ver Mensaje Individual
  #11  
Antiguo 29-05-2019
Fat Fat is offline
Miembro
 
Registrado: jul 2006
Posts: 76
Reputación: 19
Fat Va por buen camino
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
Responder Con Cita