Foros Club Delphi - crear y pulsar boton modo ejecucion

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

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - crear y pulsar boton modo ejecucion (https://www.clubdelphi.com/foros/showthread.php?t=78772)

chinchan

16-05-2012 14:30:55

crear y pulsar boton modo ejecucion

Hola a todos. Me he atascado en lo siguiente:
Quiero crear uno boton en modo ejecución y una vez creado, necesito que genere una acción cuando es pulsado.
El botón lo genero así:

TButton *boton = new TButton(this);

¿Cómo le digo que muestre, por ejemplo un ShowMessage("HOLA"); cuando es pulsado este boton creado en modo ejecución?

Muchas gracias

Casimiro Notevi

16-05-2012 15:28:44

Pues asignándole también el evento correspondiente, se ha tratado ese tema multitud de veces, aquí, por ejemplo.

ecfisa

16-05-2012 15:32:47

Hola chinchan.

Código:

void __fastcall TForm1::ButtonRTimeClick(TObject *Sender)

{

  ShowMessage("ButtonRTime fué presionado");

}



void __fastcall TForm1::FormCreate(TObject *Sender)

{

TButton *bt = new TButton(this);

  bt->Name = "ButtonRTime";

  bt->Caption = "Nuevo btn";

  bt->Left = 50;

  bt->Top = 200;

  bt->OnClick = ButtonRTimeClick;  /* Asignar el evento */

  bt->Parent = this;

}

Saludos.

Edito: Disculpas Casimiro :o, no estaba tu mensaje cuando empecé con este.

chinchan

16-05-2012 17:43:47

Muchas Gracias.
No había contemplado lo de
bt->OnClick = ButtonRTimeClick; /* Asignar el evento */

Ahora ya va.

La franja horaria es GMT +2. Ahora son las 05:45:18.