DELPHI60屏幕文字滚动的实现方法.doc

贾兆瑞独山子石化公司信息中心摘要:本文从应用的角度,。关键词:字幕滚动方法在面向对象的程序设计中,为了提高程序的可视化效果经常需要具有文字滚动的功能,但现有的DELPHI开发环境中没有提供文字滚动组件,要实现文字滚动需要用户专门编写一段程序来实现。,效果如图一所示。程序运行时上行文字从右向左滚动,下行文字从左向右滚动,左列文字从下向上滚动,右列文字从上向下滚动。在时钟控件的驱动下,上、下、左、右的文字滚动犹如行云流水,错落有致,给人一种心情愉悦的快感。现将实现该文字滚动方法写出来供各位同行们指正。基本思想:众所周知,DELPHI中承载文字的组件是标签组件Label,我们要实现文字滚动就要在Label组件上做文章。在这里我们需要用到Label组件的以下几个属性:caption:标签Label上欲显示的文字内容;top:标签Label的顶点;height:标签Label的高度;width:标签Label的宽度;:标签Label上文字的大小;:标签Label上文字的颜色;:标签Label上文字的字体。熟悉了Label组件的以上属性后,我们就可以把我们需要滚动的文字按不同的字体、大小、颜色横放在Label组件上了,这样在记时器控件Timer的作用下就可以实现文字的左、右滚动了;但是文字滚动不单单是左、右滚动,往往还要有上、下滚动,但DELPHI的标签组件只能横向显示文本,不能垂直显示文本,该怎么办呢?我们可以使用回车健对应的键码#13来实现垂直显示。这样我们就可以文字的上、下、左、右滚动了。实现方法:下面我们以图一为例介绍文字滚动的实现方法:假如我们要实现下图所示的滚动效果,让四段文字分别从上、下、左、右四个不同的方向滚动。窗体设计:首先创建窗体Form,在窗体Form上添加图形控件Image,利用Image控件的Picture属性随便装入一幅图画。然后在图形控件的上、下、左、右分别添加四个标签控件Label1、Label2、Label3、Label4,把四个标签的Caption属性全置为空,并把它们调整到窗体的适当位置。再在窗体上添加一个时钟控件Timer。设计好的窗体如图二所示:窗体初始化:通过建立窗体Form的Create事件对窗体进行初始化。初始化工作的主要任务是设置各标签的文本内容、字体颜色及字体大小。在这里需要特别说明的是上、下滚动的文本是需要垂直显示的。但在Delphi标准组件中,标签是不能垂直显示文本的,需要我们采取一定的办法来解决文本的垂直显示问题。在此我们使用了回车对应的键码#13来实现垂直显示。程序如下::='永'+chr(13)+'攀'+chr(13)+'高'+chr(13)+'峰';这样标签Label1上的文字就成了垂直显示。有一点需要说明的是,在对象查看器中设置属性时,我们不能使用chr(13)这回车符,它只能在程序中使用。窗体初始化程序如下:(Sender:TObject);:=36;l