Foros Club Delphi - como crear un boton en ejecucion y ponerle un evento

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - como crear un boton en ejecucion y ponerle un evento (https://www.clubdelphi.com/foros/showthread.php?t=60156)

jeremiselxi

22-09-2008 22:40:23

como crear un boton en ejecucion y ponerle un evento

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

Código:

[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	22-09-2008 23:03:35

Hola,

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

Lepe	23-09-2008 16:53:45

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

23-09-2008 20:13:13

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

jeremiselxi

24-09-2008 17:10:19

hola gracias a caral aqui esta la solucion

Cita:

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

Cita:

Cristo ls ama a todos gracias a todos por ayudarme

jeremiselxi

24-09-2008 17:11:58

hola gracias a caral aqui esta la solucion

Cita:

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

Cita:

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	24-09-2008 20:34:40

Cita:

Empezado por Caral (Mensaje 315799)

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

Hey Caral , esta muy bueno el Tuto... :)

La franja horaria es GMT +2. Ahora son las 19:07:36.