GE,然后用一种
填充颜色填满整个画布,在画布的固定位置显示一个特殊前景色
固定尺寸的字符串,在TIMER控件中定时连续改变显示字符串的
位置,由于原来位置的字符串不能自动消失,所以需要用与填充颜
色相同颜色的线条覆盖多余部分,这样即可实现平滑的字幕移动
效果;实现图像移动的方法:可事先定义Bitmap类和Rect类变量,
在
程序运行阶段建立Bitmap和Rect对象,并在Bitmap中装入指
定的图像文件,同时把对象Bitmap装入Rect对象中实现图像的
显示,然后在Timer控件中定时连续改变Rect的坐标值,并用与
填充颜色相同的线条覆盖遗留图像部分,即可以实现图像的平稳
移动;采用上述方法实现的字符串或图像移动操作,其效果平稳,
无任何
闪烁或抖动现象,视觉效果极佳,并且不需要事先建立控
件,完全由程序代码实现,具有相当多的优点;编程举例:在窗
体中安放时间控件TIMER1、图像框IMAGE1,定义TRECT及TBITMAP
型变量,并在FormCreate和Timer1Timer事件中安排如下代码,
程序运行之后即会在图像框中出现至下而上的移动字幕及图像效
果,并从顶部消失,之后重新从底部出现;
var{定义变量}
Form1:TForm1;
x,tt,l,h:integer;