Delphi 使用双缓冲解决图片切换时的闪烁问题 good

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