On Exit On Enter
![](https://images.cnblogs.com/cnblogs_com/xe2011/201207/201207161606095667.png)
void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
Edit1->Color = clYellow;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
Edit1->Color = clWindow;
}