关于delphix，300分送出，在线等待！(300分)

to yanyandt2:
你做的我看了。但是明显有抖动的现象啊。你试试全屏，把字体调大

我提一个思路，全部过程如下。如果你的问题仅仅是屏幕文字滚动和计算字数。
1) 创建一个新的工程，在窗体F o r m 1中添加一个P a n e l组件，将C a p t i o n属性清空，另外将B e v e l I n n e r和B e v e l O u t e r属性都设置为b v N o n e，N a m e为默认值P a n e l 1。
2) 选中P a n e l组件后在其中添加L a b e l组件，将C a p t i o n属性清空，A u t o S i z e属性设置为Tr u e，N a m e属性设置为L a b e l 1。
注意：对于L a b e l 1组件，当C a p t i o n属性清空后，A u t o S i z e属性又设置为Tr u e后，则利用鼠
标选择L a b e l 1组件是一件比较困难的事情。这时，可以在对象编辑器中通过下拉式组合框来选中L a b e l 1。
3) 在窗体中添加一个定时器( Ti m e r )组件，属性E n a b l e设置为Tr u e，属性I n t e r v a l设置为1 0 0。
4) 在窗体的左边可以添加一些L a b e l组件，起到说明作用。窗体定义完毕，如图3 - 2 3所示。

5) 添加窗体F o r m 1的O n C r e a t e事件的处理过程：
procedure TForm1.FormCreate(Sender: TO b j e c t ) ;
b e g i n
// 设置L a b e l 1组件的显示内容
L a b e l 1 . C a p t i o n : = '设计：方伟' + # 1 3 + # 1 3
+ '编程：崔玉萍' + # 1 3 + # 1 3
+ '测试：我老婆' + # 1 3 + # 1 3
+ '配音：笑笑' ;
end;

6) 添加Ti m e r组件O n Ti m e r事件的处理过程：
procedure TForm1.Ti m e r 1 Timer(Sender: TO b j e c t ) ;
b e g i n
L a b e l 1 . To p : = L a b e l 1 . To p - 1 ; // 将L a b e l 1组件向上移动
// 如果L a b e l 1显示完毕，则重新开始
i f ( L a b e l 1 . Top < -Label1.Width-30) then
L a b e l 1 . To p : = P a n e l 1 . H e i g h
e n d ;
e n d ;
e n d ;

关于字数的只要在程序中累加一下就可以了。有其它的想法给我来信啊。

呵呵。楼上哥们谢谢你。但无法解决闪烁问题：（

很好啊！

不可能有闪烁的啊。绝对不可能的。你重新建一个窗体，绝不可能。

我刚才重新做了一遍，大概要一分多钟才会闪一下，只是某一行（象索）有一点反白。

不过我想不要紧，但你一定这样就不好说了。

你可以把上下变成左右试一下。字数计算你会吧。

学习

不行啊。达不到平滑滚动的效果的。

楼主，如果全屏就选择 DXDraw 的 option里的 fullscreen
另外把 DXTimer 时间缩小

如果不行，把例子中的 OnDraw 部分放到 精灵的 Move 里

如果这样还不能平滑，那改改 DXDraw 的设置或许会有效果

如果还不行，偶没办法了

我试了一下，
1、把 form 继承改自 TDXFrom
2、form的 borderStyle 改成 bsNone
3、DXDraw 的 option fullscreen 改成 true, doflip 改成 true
4、DXTimer 调小
5、form的 WindowState 改成 Maxminized

在我的机器 塞杨900，128M内存上，能够平滑

另一个方法：
每次 Y := Y-0.5
这样移动的慢了，就会平滑了

imagelist.Items[1].Picture.Assign(……);//这句话之后并没有画上新的。
imagelist.Items[1].Restore;//必须配上这句才能更换。
这个有办法解决吗？就是不用Restore直接就可以换图片了。

问题没有解决，我也不能结帐送分啊。