Generar Botones leyendo datos de una tabla

[fenixjes]

Empezado por Caro

Hola fenixjes, si te he entendido bien deberia ser asi.


Código Delphi [-]
var
i:Integer;
boton:TButton;
............
i:=0;
AdoQuery1.First;
while not(AdoQuery1.EOF) do
begin
with boton do
begin
boton.Parent:=FColegio;
Left := 10+i;
Top := 150;
Width := 75;
Height := 25;
Caption := AdoQuery1.FieldByName('descripcion').AsString;
end;
i:=Width+20;
AdoQuery1.Next;
end;

Saluditos

Muchas Gracias Caro, lo probare ahoramismo