[LiAnTe-]

Hola a Tod@s,

a ver si me podeis ayudar estoy creando botones en un panel, pero me hace falta que siga creando en la siguiente colunma y que sepa y siga creando botones hasta terminar el panel y si no caben en ese panel que me los coloque en el siguiente panel al pulsar el boton siguiente....

os pego mi codigo para que veais que ahora actualmente ya estoy visualizando los botones pero me falta como ya os comento que siga en la siguiente columna y que haga tantos botones como grande sea el panel.

begin
vTop := 1;
vInicio := 1;
vPestanyaPersonal := Personal;
vPestanyaProductos := Familias;

BDades.TPersonal.Active := False;
BDades.TPersonal.SelectSQL.Text := 'Select * from Personal where tienda = ' + '''' + BDades.TConfigTIENDA.Text + '''';
BDades.TPersonal.Open;
BDades.TPersonal.Active := True;
BDades.TPersonal.First;

While BDades.TPersonal.Eof = False do
Begin
vPersonalNombre := BDades.TPersonal.FieldByName('NOMBRE').AsString;
vPersonalCodigo := BDades.TPersonal.FieldByName('CODIGO').AsInteger;

vBotonPersonal := TButton.create(self);
vBotonPersonal.Parent := vPestanyaPersonal;
vBotonPersonal.Caption := vPersonalNombre;
vBotonPersonal.Height := 69;
vBotonPersonal.Width := 120;
vBotonPersonal.Left := vInicio; // Inicio
vBotonPersonal.Top := vTop; // Altura
vBotonPersonal.Enabled := True;
vBotonPersonal.visible := True;
vBotonPersonal.Tag := vPersonalCodigo;
vBotonPersonal.OnClick := vPersonalBotonOnClick;
vBotonPersonal.Show;

BDades.TPersonal.Next;
vTop := vTop + 70;

if vTop > 420 Then
Begin
vInicio := 1;
vTop := 1;
end;
end;