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 ?