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

[kakarotv5]

Normalmente para poner un botón en un formulario pinchamos con el puntero del ratón en el componente Button de la paleta Standard y luego pinchamos en el formulario.

Pues bien, mi idea es saber si se puede poner un botón en el formulario desde código en tiempo de ejecución.

Saludos.

[[eduarcol]]

Si es posible

Código Delphi [-]
Boton := TButton.Create(Application);
Boton.Parent := Form1;
Boton.Left    := xx;
Boton.Top    := yy;
Boton.OnClick := Tuprocedimiento;

[kakarotv5]

¡Muchísimas gracias!

Saludos.

[dec]

Hola,

Más que bien que "Application" el "dueño" (y encargado de su liberación) podría ser el propio formulario. No sé. Pienso en que el formulario puede destruirse antes que la aplicación, siendo que el botón no tiene mucho sentido que siga ahí si el formulario en cuestión es destruido. Por lo demás, también podría no darse ningún "dueño" para el botón, eso sí, encargándonos nosotros de su destrucción, por ejemplo, al cierre del formulario. Pero, probablemente no esté demás darle como "dueño" al propio formulario.

PD. Sin ánimo de jorobar.

[[enecumene]]

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

Saludos.

[[eduarcol]]

Empezado por dec

Hola,

Más que bien que "Application" el "dueño" (y encargado de su liberación) podría ser el propio formulario. No sé. Pienso en que el formulario puede destruirse antes que la aplicación, siendo que el botón no tiene mucho sentido que siga ahí si el formulario en cuestión es destruido. Por lo demás, también podría no darse ningún "dueño" para el botón, eso sí, encargándonos nosotros de su destrucción, por ejemplo, al cierre del formulario. Pero, probablemente no esté demás darle como "dueño" al propio formulario.

PD. Sin ánimo de jorobar.

jeje gracias por la alcaracion, lo que sucede es que se me pega el cassete de creacion de los formularios

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

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

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

[[eduarcol]]

no conozco lazarus, pero crea el boton y crea el metodo, luego postea aqui la declaracion que te genera automaticamente, asi podre ver que parametros espera

[ContraVeneno]

tal vez tenga que ser así:

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

[jeremiselxi]

yo tambien tenia este mismo problema y encontre la solucion. aqui esta el codigo

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