Foros Club Delphi - Onclick en tiempo de ejecución

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

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

- - Onclick en tiempo de ejecución (https://www.clubdelphi.com/foros/showthread.php?t=93160)

Onclick en tiempo de ejecución

Tengo una aplicación que en tiempo de ejecución crea unos objetos, entre ellos varios TButton (unos 100), Cuando pulso unos de ellos... ¿Cómo puedo saber cual he pulsado?. He creado el evento OnClickk:

Código PHP:


		
			
for(a=1;a<=100;a++){
  Boton[a] = new TButtonl(this);
  Boton[a]->Parent=ScrollBox1;
  Boton[a]->Tag=a;
  Boton[[a]->OnClick = botoncliqueado;
}  


void __fastcall TForm1::botoncliqueado(TObject *Sender)
{
  ShowMessage(quiero saber que botón he pulsado);
}

En este mismo ClubDelphi he visto alguna solución similar, pero están en Delphi y no sé cómo pasarlas a C++ builder.

Por favor, ¿me podéis echar una mano?. Sé que estoy cerca, pero no lo acabo de ver.

Gracias

Hola.

Código PHP:


		
			
...

void __fastcall TForm1::FormCreate(TObject *Sender)

{

  for( int a = 0; a < 100; a++ )

  {

    Boton[a] = new TButton(this);

    Boton[a]->Top = a * 25 + 10;

    Boton[a]->Tag = a+1;

    Boton[a]->Name = "Button" + IntToStr(a+1);

    Boton[a]->OnClick = botonCliqueado;

    Boton[a]->Parent = ScrollBox1;

  }

}



void __fastcall TForm1::botonCliqueado(TObject *Sender)

{

  TButton *bt = static_cast<TButton*>(Sender);

  ShowMessage("Name: " + bt->Name + "\nTag: " + IntToStr(bt->Tag));

}

...

Saludos :)

Perfecto.... Muchas gracias. Lo tenía a la vista pero no lo veía. Gracias por tu luz.