Ver Mensaje Individual
  #6  
Antiguo 23-04-2004
ramiretor ramiretor is offline
Miembro
 
Registrado: may 2003
Ubicación: México
Posts: 196
Reputación: 24
ramiretor Va por buen camino
Hola foro:
La idea de Juan Antonio me parece muy buena, me parece tambien que la duda del compañero es como le hago para crear los botones en tiempo de ejecución, lo que tienes que hacer es una rutina que tenga como variable (esto pienso yo pero puedo haber otras recomendaciones) un arreglo de botones, la rutina de creación sería algo como:

Código:
procedure TForm1.FormCreate(Sender: TObject);
var
Botones: Array[1..100] of TButton;
begin

   Botones[1] := TButton.Create(self);

   with Botones[1] do
   begin
      Left := 56;
      Top := 10;
      Width := 75;
      Height := 25;
      Parent := Self;
      Visible := True;
      Caption := 'Creado 1';
   end;

   Botones[2] := TButton.Create(self);

   with Botones[2] do
   begin
      Left := 56;
      Top := 350;
      Width := 75;
      Height := 25;
      Parent := Self;
      Visible := True;
      Caption := 'Creado 2';

   end;
que fue hecha para la clase TButton, puedes usar otra clase como la que ya te recomendaron.

Saludos y espero te sirva
__________________
Ernesto R.
Responder Con Cita