[mRoman]

Hola Amigos....

Solicito de su ayuda.....fijense q estoy creando botones en tiempo de ejecucion, y tengo un ScrollBox donde quiero agregar dichos botones. Les comento q la parte de crear los botones ya esta resuelto, pero ahora necesito integrarlos a un scrollbox, ya que en estos momentos lo unico q hice fue colocarlos en direccion donde este ultimo (scroll) se encuentra cuando se ejecuta el sistema, pero si se agregan mas 6 botones, estos rebasan los limites del scroll, y aparte los botones se quedan "encima" de este....

Necesito q cuando se rebase los limites, se activen las barras de desplazamiento del scroll, pero esto solo sucede si agrego los botones en tiempo de diseño, pero eso no me sirve de mucho, necesito hacerlo en tiempo de ejecucion.

Gracias y espero haberme explicado...
Les paso el codigo de lo q llevo

Código Delphi [-]
procedure TfrmRegServicios.FormShow(Sender: TObject);
Var
PosY:Integer;
begin
   gBoxTipoServicio.Caption:='';
   qryServicios.Close;
   qryServicios.Open;
   PosY:=100;
   n:=1;
   While not qryServicios.Eof do
   begin
      Botones[n]:=TButton.Create(Self);
      with Botones[n] do
      begin
          Caption:=qryServicios.fieldbyname('DESCRIPCION').AsString;
          Parent:=self;
          Height:=71;
          Top:=PosY;
          PosY:=PosY+Height+10;
          Left:=16;
          Width:=97;
          OnClick:=OnButtonClick;
          Name:='btn'+IntToStr(n);
          Tag:=qryServicios.fieldbyname('CLAVE_SERVICIO').AsInteger;
      end;
      qryServicios.Next;
      inc(n);
   end;

end;

procedure TfrmRegServicios.OnButtonClick(Sender:TObject);
var
nServicio:Integer;
begin
    with Sender as tButton do begin
       nServicio:=(Sender as tButton).Tag;
       gBoxTipoServicio.Caption:=(Sender as tButton).Caption;
    end;
    qryPrenda.Close;
    qryPrenda.ParamByName('SERVICIO').AsInteger:=nServicio;
    qryPrenda.Open;
    qryPrenda.FetchAll;
end;

Ahora como integro estos botones a un scrollbox ?