void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key == 13)&&(Editing)) //Key=13表示回车键
{
hDC = ::GetDC(Edit1-＞Handle); //取得Edit1的DC(设备上下文，画图用的)
can-＞Handle = hDC; //并把它连到一个canvas上，现在can就相当于Edit1的画布，可以随意作画。
can-＞Brush-＞Color = clWhite;
can-＞Brush-＞Style = bsSolid;
can-＞FillRect(Rect(0, 0, Edit1-＞Width, Edit1-＞Height)); //先清除所有的内容
can-＞Brush-＞Color = clBlue;
can-＞FillRect(Rect(2, 2, 14, 14)); //画上一个蓝色矩形框
can-＞Font-＞Color = clBlack;
can-＞Brush-＞Style = bsClear;
can-＞TextOut(16, 2, Edit1-＞Text); //写上文字（Edit并不知道你会自己画，所以它不会自动调整内容，所以连原来的文字也要自己画一遍）
Editing = false;
}
} |
