Crear controles en tiempo de ejecución  

Enviado Por: Q3 Team
Web : www.q3.nu
Email: dlib@q3.nu
Fecha: 19/01/00

Truco accedido 71 veces

 


Por ejemplo, creemos un botón desde el evento OnCreate de tu form:


  procedure TForm1.FormCreate(Sender: TObject);
    var
      i: Integer;
      Boton: TButton;
    begin
      Boton := TButton.Create(Self);
      Boton.Parent := Self;
      Boton.Left := 100;
      Boton.Top := 100;
      Boton.Caption:='Pulsame';
      Boton.Name := 'Boton';
    end;



y ahora, querrás hacer algo con el botón cuando lo pulsen ¿no?, pues creamos el procedimiento que trate su evento OnClick:


   procedure TForm1.ClickBoton(Sender: TObject);
    begin
      Boton.Caption := 'Pulsado'; {Pressed}
    end;



y se lo asignamos al boton mediante:


 	Boton.OnClick:=ClickBoton;



NOTA: Este procedimiento te sirve para tratar el evento de cualquier componente que crees en ejecución.