¿Es posible crear un botón en el formulario en tiempo de ejecución?

[[enecumene]]

Conchole, y yo escribiendo y ya se me adelantaron. que lento soy!

Saludos.

[kakarotv5]

He hecho esto:

Código Delphi [-]
procedure Saludo;
begin
 ShowMessage('Hola Mundo');
end;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Boton         := TButton.Create(Application);
 Boton.Parent  := Form1;
 Boton.Left    := 250;
 Boton.Top     := 250;
 Boton.OnClick := Saludo;  
end;

Pero no me funciona la parte de:

Código Delphi [-]
Boton.OnClick := Saludo;

Me sale el siguiente error:

[Error] Unit1.pas(37): Incompatible types: 'method pointer and regular procedure'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

¿Qué ocurre?

[[Chris]]

Lo que pasa el que el procedimiento saludo tiede que ser de tipo evento (TNotifyEvent), con eso quedaría así

Código Delphi [-]
Procedure TForm1.Saludo(Sender : TObject);
Begin
ShowMessage('Hola Mundo');
end;

además para crear el botón el código sería mejor este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Boton         := TButton.Create(Self);
 Boton.Parent  := Form1;
 Boton.Left    := 250;
 Boton.Top     := 250;
 Boton.OnClick := Saludo;  
end;

Saludos

[[eduarcol]]

Prueba esto

Código Delphi [-]
procedure Saludo(Sender: Tobject);
begin
 ShowMessage('Hola Mundo');
end;

[[enecumene]]

Pero ven aca es que aqui en santo domingo todo esta en camara lenta? otra vez se me han adelantado.

[kakarotv5]

Me sigue dando error.

Esta vez es el siguiente:

[Error] Unit1.pas(37): Incompatible types: 'method pointer and regular procedure'

[[enecumene]]

intenta ponerlo asi:

Código Delphi [-]
procedure TForm1.botoclick(Sender: Tobject);
begin
 ShowMessage('Hola Mundo');
end;

Saludos.

[[eduarcol]]

Buen detalle Enecumene no habia percatado la falla de que era un procedimiento y no un metodo

[[enecumene]]

Empezado por eduarcol

Buen detalle Enecumene no habia percatado la falla de que era un procedimiento y no un metodo

Me estoy volviendo un master no?(ni eso me lo creo ) jajaja.

Saludos.

[kakarotv5]

He probado esto mismo en Lazarus y me da el siguiente error en la línea:

Código Delphi [-]
Boton.OnClick := Saludo;

unit1.pas(38,25) Error: Wrong number of parameters specified for call to "Saludo"

¿En Lazarus no se puede hacer esto?

[[enecumene]]

intenta ponerlo asi:

Código Delphi [-]
procedure TForm1.botonclick(Sender: Tobject);
begin
 ShowMessage('Hola Mundo');
end;

Saludos.

[kakarotv5]

Ahora si.

Arreglado, gracias a todos y un saludo.