Hola kaua77.
Si no te interpreté mal, podes aprovechar la propiedad
Tag de los
TButtons para almacenar el número que representan y usar el mismo evento
OnClick para todos los botones.
Ejemplo:
Código PHP:
/* Asignar los números de botones a la prop. Tag */
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for ( int i = 1; i < 10; i++) {
TButton *bt = static_cast<TButton*>(FindComponent("Button" + IntToStr(i)));
if (bt) bt->Tag = i;
}
}
/* Asigna este código al evento OnClick de los 9 botones */
void __fastcall TForm1::ButtonsClick(TObject *Sender)
{
TButton *bt = static_cast<TButton*>(Sender);
Edit1->Text = Edit1->Text + IntToStr(bt->Tag);
}
Fijate que lo anterior tiene validez si los botones se llaman Button1, Button2,..., Button9. De otro modo tendrás que cambiar, en el evento
OnCreate por los nombres que correspondan.
Saludos
