como crear un boton en ejecucion y ponerle un evento

[[Lepe]]

Código Delphi [-]
procedure TForm1.CrearBoton;
var
nuevoboton:Tbutton;
begin
nuevoboton:=tbutton.Create(self);
with nuevoboton do
  begin
  top:=  32;
  width:=121;
  left:= width * (self.ControlCount -0);
  parent:=self;
  caption:='boton';
  OnClick := BotonEjecucion;
  end ;
end;

procedure TForm1.BotonEjecucion(Sender:TObject);
begin
  ShowMessage (Tbutton(Sender).caption + ' ha sido pulsado');
end;

En lo sucesivo, tienes que crear un procedimiento con los mismos parámetros que lleve el evento que quieres asignar. En este caso es un TNotifyEvent que solo lleva el parámetro Sender. El nombre del procedimiento, puede ser el que más coraje te dé .

Saludos

[[Caral]]

Hola
Aqui hay un ejemplo que esta en el wiki del club.
Saludos

[jeremiselxi]

var boton: tbutton;
procedure TForm1.FormCreate(Sender: TObject);
begin
Boton := TButton.Create(Self);
Boton.Parent := Form1;
Boton.Left := 250;
Boton.Top := 250;
Boton.OnClick := Saludo;
boton.Caption:='boton creado';
end;

Procedure TForm1.Saludo(Sender : TObject);
Begin
ShowMessage('Hola Mundo');
end;
end.

pero el truco esta en poner el procedimiento k creamos en esta parte

Cristo ls ama a todos gracias a todos por ayudarme

[jeremiselxi]

var boton: tbutton;
procedure TForm1.FormCreate(Sender: TObject);
begin
Boton := TButton.Create(Self);
Boton.Parent := Form1;
Boton.Left := 250;
Boton.Top := 250;
Boton.OnClick := Saludo;
boton.Caption:='boton creado';
end;

Procedure TForm1.Saludo(Sender : TObject);
Begin
ShowMessage('Hola Mundo');
end;
end.

pero el truco esta en poner el procedimiento k creamos en esta parte

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
Procedure Saludo(Sender : TObject); //aqui hay k ponerlo para k funcione

Cristo ls ama a todos gracias a todos por ayudarme

[look]

Empezado por Caral

Hola
Aqui hay un ejemplo que esta en el wiki del club.
Saludos

Hey Caral , esta muy bueno el Tuto...