TButton OnClick mit eigener überlagern

ich will ein programm mit mehreren Buttons (um genau zu sein 100 oder mehr) und jeder von ihnen soll wen man drauf klickt die farbe ändern (jedoch nur die eigene) und will dies mit einer methode machen.
Hab mir schon eine klasse geschrieben die von TButton erbt und einen funktionierenden Konstruktor hat jedoch weiß ich jetzt nicht wirklich weiter

class MButton: public TButton
        {

        public:
        MButton(void* ParentWindow);
        void __fastcall Change(TObject* Sender);

        };

Konstruktor:

MButton::MButton(void* ParentWindow):TButton(ParentWindow)
{

}

akari

Hallo

Als einfachstes überschreibst du die Click-Methode :

class MButton
{
...
        DYNAMIC void __fastcall Click(void);
...
}

void __fastcall MButton::Click(void)
{
  ShowMessage("Vor Click");
  TButton::Click(); // Originalfunktion aus TButton aufrufen
  ShowMessage("Nach Click");
}

bis bald
akari

genau das habe ich gesucht!

Danke akari