como crear un boton en ejecucion y ponerle un evento

[jeremiselxi]

hola amigos del foro, leean lo que quiero hacer, tengo un tbutton en mi formulario, pero quiero crear un Tbutton en ejecucion pero con un evento como por ejemplo en el evento onclick showmessage('Boton creado');
hice esto

Código Delphi [-]
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';
  end ;
end;

entente ponerle

Código Delphi [-]
OnClick:= showmessage('boton creado');

pero me sale k tengo k poner este error

[Error] Unit1.pas(39): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

pero como dije antes quiero ponerle un evento como por ejemplo un showmessage,
porque diganme ustedes, ¿de que me vale crear un boton si no hara nada en especifico:-)? espero por su respuesta. Cristo les ama

[TOPX]

Hola,

1. Por favor use las etiquetas [delphi], para darle formato al código.
   -
2. De esta forma, o también de esta forma.
   -

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