（Continuing）
好了，我们已经学会了在ComboBox和ListBox中通过自己的艺术细胞来自画列表项。那么我们自然就会想到：对于其他的控件，要是也能自己画就好了（哇，贪得无厌！）。于是，你满怀信息地去找帮助了……，但结果呢？不幸的很，大部分的控件既没有OwnerDraw方法，也没有Canvas属性。难道没有办法了吗？
当然不！群众的创造力是无限的！我们总有办法来对付Windows的。下面，我就举个例子来说明怎样对任意的控件运用“自画”效果。
记得那个官司满身的IE吗？IE 4.0的地址输入栏在你按回车之后，左侧会出现一个HTML的标志。我们也来做一个相似的效果，只不过我们可不想搞得那样精致。简单些，先画个蓝色的矩形方块吧！
我们的计划是这样的，在一个Edit输入栏中，你可以输入任意内容，按回车之后，在前面加上一个蓝色矩形块。单击后，又回到输入状态。
首先当然是先放上一个Edit啦。保持它的缺省属性设置。然后定义一个全局变量Editing用来标志是否处于输入状态，并将它初始化为true。再申明两个变量：
HDC hDC和 TCanvas *can;
然后，在Edit的OnClick和OnChange事件中写上:
Editing = true; //进入编辑状态
Edit1->Refresh(); //刷新编辑框
再然后，就进入了我们的重头戏：按回车之后自画编辑框，在文字前面画上一个矩形块：
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;
}
}
看出来了吗？用了Windows API函数之后，你可以补VCL的不足，做自己想做的一切事情。顺便说一句，所有的Windows窗口元素(具有窗口句柄的)都可以取到它的DC值。
本文地址：http://com.8s8s.com/it/it30574.htm