在VB中制作快速动画比较简单,只要把窗体的AutoRedraw属性设置为true,再直接调用API函数BitBlt,画完一帧Refresh一次。但C++Builder的窗体没有AutoRedraw属性,只要一使用BitBlt,窗体就会自动刷新,由于一帧画面往往要几次用到BitBlt,画面就闪烁起来了。解决的办法就是自己定义一个不可见的缓冲区,其大小应与目标窗体相同,先在缓冲区上把一帧的画面画完,再用一次BitBlt函数把缓冲区的图案贴到窗体上。请看例子：

　　//在TForm1 *Form1;的后面添上这三句

　　Graphics::Tbitmap *p;
　　 Graphics::Tbitmap *q;
　　 int xx=0;
　　 //－－－－－－－－－－－－－－－－－－－－－
　　 void __fastcall TForm1::FormCreate(Tobject *Sender)
　　 {
　　　 p=new Graphics::Tbitmap;//这存放的就是要贴到窗体上的小图案
　　　 p->Handle=LoadBitmap(Hinstance,″aaa″);//从资源文件中载入小图案
　　　 q=new Graphics::Tbitmap;//定义缓冲区q
　　　 q->Width=Width;//使缓冲区的大小与窗体相同
　　　 q->Height=Height;
　　　 PatBlt(q->Canvas->Handle,0,0,q->Width,q->Height,0);//把缓冲区的背景变为黑色
　　 }
　　 //－－－－－－－－－－－－－－－－－－－－
　　 void __fastcall TForm1::FormDestroy(Tobject *Sender)
　　 {
　　　 //程序结束时释放内存
　 　 delete p;
　　　 delete q;
　　 }
　　 //－－－－－－－－－－－－－－－－－－－－
　　 void __fastcall TForm1::Timer1Timer(Tobject *Sender)
　　 {
　　　 //窗体上要加上一个Timer控件
　　　 xx+=2;
　　　 PatBlt(q->Canvas->Handle,0,0,Width,Height,0);//把缓冲区的背景变为黑色,同时擦去了旧的画面
　　　 BitBlt(q->Canvas->Handle,xx,0,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　　 //正在缓冲区上制作一帧的画面,这几句是不可见的
　　　 BitBlt(q->Canvas->Handle,xx,50,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　 BitBlt(q->Canvas->Handle,xx,100,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　 BitBlt(q->Canvas->Handle,xx,150,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　 BitBlt(q->Canvas->Handle,xx,200,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　 BitBlt(q->Canvas->Handle,xx,250,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　 BitBlt(q->Canvas->Handle,xx,300,p->Width,p->Height,p->Canvas->Handle,0,0,SRCCOPY);
　　　 BitBlt(Canvas->Handle,0,0,Width,Height,q->Canvas->Handle,0,0,SRCCOPY);
　　　　 //把缓冲区的画面贴到窗体上
　　 }