1,221
社区成员
发帖
与我相关
我的任务
分享
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);
}