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.
|
