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 indy防止假死

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 获取硬盘序列号(ide,sata,scsi)

Delphi 递归遍历treeview树节点

Delphi 内存截取字符串

Delphi 新建文件夹函数

Delphi中模拟鼠标点击事件

Delphi 调出windows 系统时间设置对话框

Delphi 动画窗体

Delphi datetime,date,time tdatetimepicker

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



打赏

取消

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

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

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

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

评论

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