Pantalla estilo Twitter

[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?

[roman]

Sí, tienes razón, sigue poniendo el nuevo tweet por encima de los anteriores. Parece que el orden de alineado depende de la posición original del control, que, por defecto, será en 0, 0.

Me ha funcionado forzando entonces primero un alineado inferior y luego el superior:

Código Delphi [-]
Parent := Panel1;
Align := alBottom;
Align := alTop;

De todas formas, te pongo un ejemplo completo. Hay algunos cambios minúsculos en la unidad uFrmTwitterEntry (como cambiar Twit por Tweet que es lo correcto) por lo que te sugiero las reemplaces.

// Saludos

[jars]

Excelente Roman.
Mil gracias.