1. var  
2.    TempCanvas: TCanvas;   
3.    BufDC: HDC;   
4.    BufBitmap: HBITMAP;   
5.  begin  
6.    // 创建一个与显示设备兼容的内存设备   
7.    BufDC := CreateCompatibleDC(Canvas.Handle);   
8.    // 创建一个与显示设备兼容的位图   
9.    BufBitmap := CreateCompatibleBitmap(Canvas.Handle, ClientWidth, ClientHeight);   
10.    // 将设备与位图关联   
11.    SelectObject(BufDC, BufBitmap);   
12.    // CreateCompatibleBitmap创建位图后数据初始化为0，而RGB(0,0,0)则表示是黑色   
13.    // 这里需要清除其黑色背景，使其变为透明   
14.    PerformEraseBackground(Self, BufDC);   
15.    // 临时的Canvas，用来画图用，但它并不是必须的，可以直接使用GDI函数来画图   
16.    TempCanvas := TCanvas.Create;   
17.    // 关联到内存设备   
18.    TempCanvas.Handle := BufDC;   
19.    // 可以开始画图了，这里演示用随机颜色画边框   
20.    Randomize;   
21.    TempCanvas.Brush.Color := Random($FFFFFF);   
22.    TempCanvas.FrameRect(ClientRect);   
23.    // 一次性将内存图像数据覆盖过去，因为跳过了擦除背景过程，所以避免了闪烁的问题   
24.    BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, TempCanvas.Handle, 0, 0, SRCCOPY);   
25.    // 释放资源   
26.    DeleteDC(BufDC);   
27.    DeleteObject(BufBitmap);   
28.    FreeAndNil(TempCanvas);   
29.  end;  

http://blog.csdn.net/aqtata/article/details/7710655