//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton *Button;
Button = dynamic_cast <TButton *> (Sender);
Button->Caption = "Appuyé";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TButton *Button;
Button = (TButton *) (Sender);
Button->Caption = "Appuyé";
}
//--------------------------------------------------------------------------- |