在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);
//把缓冲区的画面贴到窗体上
}
假如实际应用时,像上面的程式那样,把画动画的语句放在Timer控件的OnTimer事件中,就可能会有一个小问题。假如用户暂停了动画,窗体又正
好产生了重画事件(比如窗体被最小化后又被恢复),那窗体上的画面就会消失。这是因为窗体被重画时,只画了窗体的通用部分,Windows并不知道原
来的窗体上有自定义的画面。要想让Windows把画面恢复原样,必须把画动画的语句放在窗体的OnPaint事件中,Timer控件的OnTimer事件中只写决定
图案位置的语句(如本例中的xx =2；)和一句RePaint。修改后具体的程式我就省略了,请大家自己完成吧,愿大家都做出令自己满意的出色动画。
