绘图残影

   Graphics::TBitmap *Bitmap1=this->Image1->Picture->Bitmap;
  
   for(int i=Bitmap1->Width;i<=Bitmap1->Width*2;i++)
   {                      
     TRect DestRect=Rect(Bitmap1->Width-i,0,Bitmap1->Width,Bitmap1->Height);
     TRect SourceRect=Rect(0,0,i,Bitmap1->Height);
     Application->ProcessMessages();
     TRect rect=Rect(0,0,Bitmap1->Width,Bitmap1->Height);

    // InvalidateRect(this->Handle,&rect,true);
     Sleep(1);
     Form1->Canvas->CopyRect(SourceRect,Bitmap1->Canvas,DestRect);
   }

想要得到图像移出的效果，已经写好了移入，移出于是偷了下懒，结果移出时出现很严重的残影，使用
InvalidateRect(this->Handle,&rect,true);或Form1->Refresh()刷新出现同样严重的闪烁.
[解决办法]
如果是c6在Form1构造函数加上DoubleBuffered = true, 2010直接在窗口属性上设置。
如果闪烁还是严重，没啥好方法了,gdi界面就这样了。
[解决办法]
目前有效的方法就是首先开启双缓冲.