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

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.

Si es posible

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

¡Muchísimas gracias!

Saludos.

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

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

Saludos.

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

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:

¿Qué ocurre?

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

Prueba esto

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

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

Me sigue dando error.

Esta vez es el siguiente:

intenta ponerlo asi:

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

Saludos.

intenta ponerlo asi:

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

Saludos.

Ahora si.

Arreglado, gracias a todos y un saludo.

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

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

Saludos.

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

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

¿En Lazarus no se puede hacer esto?

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

tal vez tenga que ser así:

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

hola amigos
 

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

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

:) Cristo ls ama a todos