یک تابع مشترک برای رویدادها

[Ananas]

سلام.

void __fastcall TForm1::Edit1Enter(TObject *Sender)

{

    dynamic_cast< TEdit * >( Sender )->Color = 0x00FFFFFF;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Exit(TObject *Sender)

{

    dynamic_cast< TEdit * >( Sender )->Color = 0x00808080;

}