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 firedac tfdconnection连接mysql数据库

Delphi代码,直截注入别的进程,之后直截运行在别的进程中的代码!

Delphi利用文件流把文件拆分与合并

Delphi中使用可修改的常量

Delphi设计循环播放声音文件程序

Delphi 三种方式读取txt文本文件

Delphi mscomm 实时串口通讯

Delphi xe5下android中调用条码的方法

webbrower常见问题及解决方法

Delphi 锁住listview防止刷新

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



打赏

取消

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

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

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

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

评论

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