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

[FideRosado]

si eso es, el recorre buscando los controles y les cambia laAlign,pero la verdad es que no entiend lo que me pones, es que necesito seguir un codigo ya echo para entender esa cmplegidad. si puedes adjuntame el proy enviamelo a ...

[mamcx]

Lo que te mostraron resuelve de forma muy directa el problema. Haz seguido un curso en programación? Entiendes las bases? Sabes, por ejemplo, como procesar listas, ordenar & buscar items? Sabes que es Queue y un Stack?

Porque si las bases no las tienes claras, vas a a perder mucho tiempo intentando hacer las cosas.

[ecfisa]

Empezado por FideRosado

si eso es, el recorre buscando los controles y les cambia laAlign,pero la verdad es que no entiend lo que me pones, es que necesito seguir un codigo ya echo para entender esa cmplegidad. si puedes adjuntame el proy enviamelo a ...

Hola FideRosado.

Soy respetuoso de las normas de nuestro sitio y si lees la norma 11 de la guía de estilo, entenderás por que no respondo de forma privada.
Además de ir contra nuestras normas, publicar tu correo te deja expuesto a recibir spam, motivo por el cuál modifico ese punto de tu mensaje.

Sin embargo, con muchísimo gusto te agrego un ejemplo simplificado, pero totalmente funcional, que implementa mi sugerencia anterior.

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

uses Contnrs;

var
  PnlList: TObjectList;
  MsgCount: Integer = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PnlList:= TObjectList.Create; // Crear lista
  Timer1.Interval:= 500;
  Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  PNL_HEIGHT = 60;
var
  pnl: TPanel;
  j: Integer;
begin
  // Creación de un panel
  pnl:= TPanel.Create(Self);
  pnl.Parent:= ScrollBox1;
  pnl.Width:= ScrollBox1.Width-10;
  pnl.Height:= PNL_HEIGHT;
  pnl.Name:= Format('PanelChat%d',[MsgCount]);
  pnl.Caption:= Format('Mensaje: %d',[MsgCount]);

  // Agregarlo a la lista;
  PnlList.Add(pnl);

  // Reorganizar paneles
  for j:= PnlList.Count-1 downto 0 do
  begin
    (PnlList[j] as TPanel).Align:= alTop;
    (PnlList[j] as TPanel).Align:= alBottom;
  end;

  Inc(MsgCount);
  if MsgCount = 7 then Timer1.Enabled:= False; // límite 7 msgs
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PnlList.Free; // Liberar lista
end;

end.

El TTimer, la variable MsgCount y algun otro detalle están a fin de simular el arribo de los mensajes.

Saludos

[Casimiro Noteví]

Empezado por ecfisa

Soy respetuoso de las normas de nuestro sitio y si lees la norma 11 de la guía de estilo, entenderás por que no respondo de forma privada.
Además de ir contra nuestras normas, publicar tu correo te deja expuesto a recibir spam, motivo por el cuál modifico ese punto de tu mensaje.

Me "copio y pego" esa frase tan bien expresada, porque hace falta usarla más veces de las que quisiera

[FideRosado]

tienen razn, necesitaba verlo desde es punto de vista..