Delphi制作移动文字、图片


本文整理自网络,侵删。

 Delphi制作移动文字、图片 

Flash中的动画毕真毕现的,让人见了都羡慕不已,其实,作为程序员也可以让你的程序“动”起来!

在Delphi中,System选项卡下有Timer组件,这是一个十分有用的组件,它可以让你的文本、图片等等像Flash那样跑在你的窗口上,也可以用来制作你自己喜爱的、有特色的时钟等等小玩意。

下面,先讲下原理:

很简单,说白了就是利用Timer组件每隔一个时间段自动运行的特点。可以想象一下:如果我们的一段程序每隔0.5秒或1秒就自动执行一次,然后再在原来的基础上使变量发生增量或减量变化,由于视觉的停留效果,我们的程序是不是一直都在“运行”呢?

举个非常简单的例子:

在Form 中添加一个Timer组件、Label组件,写上你喜爱的文字

设置Label属性Transparent为True(透明)

然后,在procedure TForm1.Timer1Timer(Sender: TObject);中添加代码(双击Timer即可)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Left>0 then
Label1.Left:=label1.Left-7
else
Label1.Left:=form1.Width-110;
end;

根据你喜爱的速度设置Timer的Interval属性。

然后,运行下试试,你的程序已经“跑”起来了!

此处,只是用一个非常简单的例子讲解了一下Timer的原理,其更多的作用,留给大家去思考。

相关阅读 >>

Delphi unknown picture file extension (.jpg) 错误提示

Delphi的tstreamreader逐行读取文本文件

Delphi firemonkey中listboxaccessory图标切换

Delphi中获取光标句柄代码(包含获取当前线程id)

Delphi webbrowser通过遍历id查找元素是否存在

Delphi 调用shellexecute打开txt文本

Delphi 将word嵌入Delphi

Delphi图像数据压缩解压缩实例

Delphi 判断com端口是否存在

processid, process handle, window handle 之间的互相转换

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...