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捕捉屏幕

Delphi dateutils功能详解

Delphi篇之写托盘图标

Delphi编写聊天程序

Delphi 系统服务和普通forms程序共存一体的实现

Delphi 位运算

Delphi 用内存流文件流资源生成客户端

Delphi 10.3.2 社区版的安装

Delphi 删除字符串中指定字符

Delphi中输入框不能输入初数字意外的字符串的函数(isnumeric)

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



打赏

取消

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

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

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

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

评论

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