我想在窗口的底部的StatusBar实现不停滚动的一行字，怎么实现？(10分)

C

cjf1009

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #1

我想在窗口的底部的StatusBar实现不停滚动的一行字，怎么实现？

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #2

有控件啊，用scrolltext。

 

G

goodzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #3

http://www.51delphi.com/delphi/soft Raize 3.10
可以实现,用控件吧,写代码太麻烦了.

 

Y

yutouda_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-16

• #4

很简单,加一个Timer控件,控件的OnTime事件中,不停的在字符串前部加空格.一定字数后去掉所有空格

 

雪

雪阳

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-17

• #5

可以用raize 控件！！！！

 

风

风信紫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-04

• #6

我用Raize

 

N

ndKeler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #7

TIMER1：TTimer;
Label:TLabel;
change Label's parent To StatusBar in FormCreate event
Panel.Parent:=StatusBar;

procedure Timer1.OnTimer(sender:TObject);
begin
//改边Label.Left 。简单的滚动。建议写成一个独立的TMyStatusBar;定义更精彩的效果。
end;