Pantalla estilo Twitter

[jars]

Roman, podrias darme un ejemplo de como ir agregando frames a la pantalla en runtime?
Gracias

[roman]

Sí claro,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TfrmTwitterEntry.Create(Self) do
  begin
    Left := 8;
    Top := 8;
    Parent := Self; // Aquí puedes poner otro contenedor, por ejemplo, un Panel

    imgAvatar.Picture.LoadFromFile('miavatar.bmp');
    lblUser.Caption := 'Román';
    lblUserName.Caption := '@roman';
  end;
end;

// Saludos

[jars]

Nuevamente gracias Roman.

[roman]

De hecho, puedes facilitar la inserción múltiple poniendo un ScrollBox (pestaña Additional) y sustituyendo el código anterior por este otro:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TfrmTwitterEntry.Create(Self) do
  begin
    { Esto es necesario para que puedas insertar varios frames }
    Name := '';

    {
      Esto hará que los nuevos frames se vayan colocando
      debajo del último y abarcando todo el ancho del scrollbox
    }
    Align := alTop;  

    { Insertas en el ScrollBox }
    Parent := scbTwits;

    lblUser.Caption := 'Román';
    lblUserName.Caption := '@roman';
  end;
end;

// Saludos

[jars]

Copie el codigo y funciona perfecto solo que los nuevos frames se van colocando por encima del anterior, como haria para que queden en orden cronologico, es decir uno debajo del otro?

[roman]

¡Ah! No me había percatado de eso. Intercambia las líneas del Align y del Parent.

// Saludos

[jars]

Buen dia Roman.
No se pero le cambie el orden y los sigue ordenando arriba.
A vos te funciona bien asi?