如何实现在StatusBar.panels[1]中将显示的汉字向电视字幕一样从右到左移动？

Question

谢谢各位帮助！！！！

Answer 1

一般这种显示我是用label实现；
在timer控件的ontimer事件中控制label的left值；

Answer 2

在StatusBar.panels[1]中是否有办法显示出移动字幕呢？

Answer 3

if label1.Left >form1.Left then
      label1.Left:=label1.Left -50
   else   label1.Left:=form1.Width ;

Answer 4

在StatusBar.panels[1]里面嵌入一个Label控件,然后用timer控制它的移动,效果跟你要的一样-----移动字幕啦~~~^_^

Answer 5

chenkandy(多少爱可以重来)     支持

Answer 6

Label控件无法放不到StatusBar.panels[1]中，怎么办？？？

Answer 7

控件可以容纳其他控件 
   
要使一个控件可以作为控件容器，其实只要使ControlStyle属性（集合类型）包含csAcceptsControls元素就可以了ControlStyle:= ControlStyle + [csAcceptsControls];例如Delphi 5原来的状态栏控件不支持包含其他控件，改成下面的就可以了。需要扩展一下statusbar,加一个属性就行．分归我了．//----------------------------------------------------------------------////扩展StatusBar//加入特性：允许在状态条上加入任意控件typeTMStatusBar=Class(TStatusBar)privateprotectedpublicconstructor Create(AOwner: TComponent); override;publishedend;//TMStatusBar 事件扩展constructor TMStatusBar.Create(AOwner: TComponent);begininherited Create(AOwner);ControlStyle:= ControlStyle + [csAcceptsControls];end;**********************仅仅利用Delphi自身的功能，不写任何代码，让一个控件可以容纳另外一个控件？例如在一个Button里面包含另外一个Button？答：查看和修改DFM文件即可！把另外一个Button的描述放在另外一个Button的定义里面就可以了！然后把窗体切换回来看看？：）。原创：ZsWang。评论：这个方法简单可行！以前也直接修改过DFM文件，例如，在程序设计初期，对于窗体没有好好设计，后来加了一个Panel，需要把其他控件放到Panel里面，我就手工该过！当然你也可以利用C/P大法来修改。：），不过这样你了解得更多，可惜我没有把这个功能和题目要求联想起来。 :-(