Delphi实现字幕动画的两点经验

Author: 肖绚 Date: 1997-01-01

　　Ｄｅｌｐｈｉ是当今最流行的Ｗｉｎｄｏｗｓ程序设计语言之一，不少报刊、杂志已介绍采用计时器加标签来实现字幕动画，即利用计时器的Ｉｎｔｅｒｖａｌ属性每隔一定时间触发事件，让字符串的Ｌｅｆｔ属性值减１或加１，来实现字符串动画效果。举个例子来说，新创建一个Ｆｏｒｍ１，在Ｆｏｒｍ１上放置一个定时器Ｔｉｍｅｒ１和一个字符串ｌａｂｅｌ１，ｌａｂｅｌ１的ｃａｐｔｕｒｅ属性值设为“电脑报读者，你好”；Ｔｉｍｅｒ１的Ｉｎｔｅｒｖａｌ属性值设为１００；Ｅｎａｂｌｅｄ属性值设为ｔｒｕｅ；ｌａｂｅｌ１的ｌｅｆｔ属性值设为０。那么双击Ｔｉｍｅｒ１来编写Ｔｉｍｅｒ１的时间触发事件ｌａｂｅｌ１．ｌｅｆｔ：＝ｌａｂｅｌ１．ｌｅｆｔ＋１；再点击运行即可产生“电脑报读者，你好”几个字从Ｆｏｒｍ１的左边向右边移动。但这种动画效果会产生强烈的抖动感，字符一闪一闪的，没有任何实用价值。经过仔细研究，可以从以下二方面改善移动效果。
　　１．修改Ｔｉｍｅｒ１的时间触发程序为
　　ｌａｂｅｌ１．ｌｅｆｔ：＝ｌａｂｅｌ１．ｌｅｆｔ＋１；
　　Ｆｏｒｍ１．ｆｒｅｓｈ；
　　对Ｆｏｒｍ１重新刷新，这样一改后动画效果就没有强烈的抖动感了，只有一点轻微抖动。
　　２．在Ｆｏｒｍ１上添加一个Ｐａｎｅｌ１，再把ｌａｂｅｌ１移动到Ｐａｎｅｌ１平台上。
　　修改Ｔｉｍｅｒ１时间触发程序为
　　ｌａｂｅｌ１．ｌｅｆｔ：＝ｐａｎｅｌ１．ｌｅｆｔ＋１；
　　重新运行该程序，你就会发现“电脑报读者，你好”几个汉字很平稳的在Ｆｏｒｍ１窗体内移动，丝毫没有一点抖动闪烁感。