Manipulacion de propiedades de objeto

[ecfisa]

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