关于控件刷新闪动的问题

                            
我做了一个控件,继承自TGraphicControl,在paint中采用了先创建一个兼容的Bitmap,然后在这里画图,最后将Bitmap中画好的图再BitBlt到当前Canvas中。使用这样的双缓存的方法就是想解决刷新时屏幕闪动的问题,可是依然闪动。各位高人有何办法?   
  具体代码:  
          MemBitmap   :=   CreateCompatibleBitmap(Canvas.Handle,   ClientRect.Right,   ClientRect.Bottom);  
          MemDC   :=   CreateCompatibleDC(Canvas.Handle);  
          OldBitmap   :=   SelectObject(MemDC,   MemBitmap);  
          DC:=Canvas.Handle;  
          //为了避免再创建一个Canvas,就使用类中的,只是将DC付给了它  
          Canvas.Handle:=MemDC;  
   
          BeginPaint(WindowFromDC(DC),   PS);  
          //使用Canvas绘图  
          //将Canvas的HDC恢复  
          //BitBlt  
          EndPaint(WindowFromDC(DC),   PS);  
   
          SelectObject(MemDC,   OldBitmap);  
          DeleteDC(MemDC);  
          DeleteObject(MemBitmap);  
   
  谁能解决图形版的分一起给!!!

查看回复