本文整理自网络,侵删。
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》频道 >>