Chat Comico - Dudas y mas

[ecfisa]

Hola FideRosado.

Si, ese código es mas simple, pero no tan eficiente por que tiene que buscar entre todos los controles que existan en el ScrollBox. Usar un TObjectList para almacenar sólo los Panels añadidos reduce la cantidad de elementos a recorrer y obviamente también evita evaluar si se trata de un Panel u otro control.

Código Delphi [-]
var
  PnlList: TObjectList;

....
begin
  // creación del nuevo TPanel pnl
  pnlList.Add(pnl);
  ScrollBox1.DisableAlign;
  for j:= PnlList.Count-1 downto 0 do
  begin
    TPanel(PnlList[j]).Align:= alTop;
    TPanel(PnlList[j]).Align:= alBottom;
  end;
  ScrollBox1.EnableAlign;
  ....

Saludos