用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中编译通过。