[roman]

Empezado por Fat

Mi problema es que lleno un treeview con datos extraídos de una base de datos SQL. Esto lo hago en el evento OnExpanding, hasta ahí todo bien. El problema esta que al contraer y volver a expandir un nodo los datos se vuelven a agregar y así sucesivamente todas las veces que contraiga y expanda ese nodo o cualquier otro que ya haya expandido una vez.

¿Por qué no simplemente checas si el nodo tiene hijos? Si ya tiene hijos es que ya los leíste y no hay que volver a hacerlo:

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

// Saludos