窗体背景的绘制

核心思想：由于Windows窗体每次都会重绘其窗体背景，所以我们可以通过拦截窗体重绘背景的消息(WM_ERASEBKGND)，并自定义方法来实现重绘窗体背景。通过TImage组件也可以实现，但是重写WM_ERASEBKGND消息的效率更高一些，所以还是推荐使用这种方法。

(2)声明重绘背景消息响应函数

void fastcall OnWMEraseBkgnd(TWMEraseBkgnd& Msg); 

(3)添加消息映射

BEGIN_MESSAGE_MAP
//拦截重画背景的事件
MESSAGE_HANDLER(WM_ERASEBKGND,TWMEraseBkgnd,OnWMEraseBkgnd); 
END_MESSAGE_MAP(TForm);

(4)编写自绘背景消息响应函数的代码

void fastcall TFormMain::OnWMEraseBkgnd(TWMEraseBkgnd& Msg)
{
    //重画背景
    TCanvas* canvas = new TCanvas;
    canvas->Handle = Msg.DC;
    int cx = ClientWidth/bmpFormBK->Width + 1;
    int cy = ClientHeight/bmpFormBK->Height + 1;
    for (int i=0; i<cy; i++)
    for (int j=0; j<cx; j++)
    {
        canvas->Draw(j*bmpFormBK->Width, i*bmpFormBK->Height,bmpFormBK); Msg.Result = true;
    }
    delete canvas;
}