Pantalla estilo Twitter

[jars]

Gracias Ecfisa pero el hilo se refiere al uso de la api de twitter y ese no es mi problema.
La cosa es que necesito alguna idea de como ir mostrando sobre algun control, el avatar y el texto ingresado por cada uno. No se si habra algun control?

[roman]

Puedes implementar una solución rudimentaria con frames.

Te pongo un ejemplo adjunto a este mensaje. Son dos archivos: uTwitterEntry.dfm y uTwitterEntry.pas. Añade la unidad uTwitterEntry a tu proyecto e inserta un Frame en un formulario (primer icono de la pestaña Standard). Te aparecerá una ventana pidiéndote seleccionar el frame deseado. Escoge frmTwitterEntry y listo, tendrás algo así:



Al frame insertado puedes cambiarle el tamaño y los controles dentro se autoajustarán. También puedes cambiar los textos de cada control. Puedes insertar tantos frames como desees.

// Saludos

[jars]

Muchas gracias roman, lo voy a probar.
Un abrazo

[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