用BCB3.0制作桌面动画

    　大家好。记得以前玩过一些桌面宠物类的小游戏，比如说：一只小猫在桌面上不停的追逐鼠标等等。当时我刚开始学Windows的编程，曾经对这类程序为什么能在桌面上直接作动画感到百思不得其解。下面我们就来谈谈制作桌面动画的原理。其实说穿了很简单：就是先准备几张连续的图片，然后在桌面上建一个形状不规则的窗口（窗口具体是什么形状要由显示什么样的动画来决定），然后一边移动窗口，一边给窗口更换图片就行了。是不是很简单。下面就用BCB来做一个例子：

    打开BCB，新建一个标准工程。
    在Form1中添加一个名为Timer1的Timer控件。
    在Unit1.h中添加以下代码：
    #include "winuser.h"
    #include "wingdi.h"
    然后在Form1的OnCreate事件中添加以下代码：
    void __fastcall TForm1::FormCreate(TObject *Sender)
    {
    BorderStyle=bsNone;
    Timer1->Enabled=false;
    Timer1->Interval=150;
    SetWindowRgn(Form1->Handle,CreateEllipticRgn(0,0,80,80),true);//做一个圆形的窗口
    }
    在Form1的OnPaint事件中添加以下代码：
    void __fastcall TForm1::FormPaint(TObject *Sender)
    {
    Canvas->Pen->Width=1;
    Canvas->Pen->Style=psSolid;
    Canvas->Pen->Color=clRed;
    Canvas->Brush->Color=clRed;
    Canvas->Ellipse(0,0,79,79);//在窗口中画一个圆形
    }
    在Form1的OnMouseDown事件中添加以下代码：
    void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
    TShiftState Shift, int X, int Y)
    {
    if(Button==mbLeft)//点鼠标左键就开始移动
    Timer1->Enabled=true;
    if(Button==mbRight)//点鼠标右键就退出
    Close();
    }
    在Timer1的OnTimer事件中添加以下代码：
    void __fastcall TForm1::Timer1Timer(TObject *Sender)
    {
    if(Form1->Top>=1)
    Form1->Top=Form1->Top-2;
    else
    Timer1->Enabled=false;
    }

    现在保存并编译它，然后执行，你就会看到一个圆形在桌面上向上移动。这里因为篇幅所限，所以给出的例子比较简单。不过桌面动画的实现原理已经说的很清楚了。
    以上程序在BCB3.0+Win97中编译通过。