Ver Mensaje Individual
  #3  
Antiguo 09-07-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola sancarlos, como te dice Eduardo, debes utilizar el componente ScrollBox de la paleta Additional, para obtener la lista de campos de tu tabla puedes utilizar el procedimiento GetFieldNames, el codigo quedaría asi, estoy creando botones por cada campo.

Código Delphi [-]
var
 i, aLeft, aTop : Integer;
 Boton : TButton;
 slCampos : TStringList;
begin
 slCampos := TStringList.Create;
 Table1.GetFieldNames(slCampos);
 aLeft := 10;
 aTop := 10;
 for i:=0 to slCampos.Count-1 do
  begin
   Boton := TButton.Create(Self);
   Boton.Parent := ScrollBox1;//Asignamos como padre al ScrollBox
   Boton.Left := aLeft;
   Boton.Top := aTop;
   Boton.Width := 50;
   Boton.Name := slCampos[i];
   Boton.Caption := slCampos[i];
   inc(aTop,Boton.Height+10);
  end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita