如何实现STATUSBAR上隔一段时间显是一写信息(50分)

P

prog_life

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #1

如何在STATUSBAR上隔一段时间显是一写信息

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #2

用TTimer

 

B

BuddyWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #3

UP

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #4

应该是用Timer来控制显示。

 

P

prog_life

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #5

各位，可以给出用TTIMER控件的详细代码吗？

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #6

procedure TForm1.Timer1Timer(Sender: TObject);
var myDate:TDateTime;
begin
timer1.Interval:=1000;
myDate:=now;
statusBar1.Panels[1].Text:=DateTimetoStr(myDate);
end;

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #7

给分

 

P

prog_life

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #8

[]无疯无禄，首先表示感谢您！
我的意图是在statusBar1上动态显示不同的文字。比如一段文字：'无疯无禄',另一段文字：
‘感谢您！’，在statusBar1上交替显示！
给你十分好吗下次一起解吧哈哈1

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #9

procedure TForm1.Timer1Timer(Sender: TObject);
v/var
s: array[0..1] of String;
i:Integer;
begin
s[0]:='无疯无禄';
s[1]:='感激你';
timer1.Interval:=1000;
for i:=0 to 1 do
begin
statusBar1.Panels[1].Text:=s;
end;
end;

这样子吗？

 

B

BuddyWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #10

应该这样子吧！
procedure TForm1.Timer1Timer(Sender: TObject);
var
s: array[0..1] of String;
begin
s[0]:='无疯无禄';
s[1]:='感激你';
timer1.Interval:=1000;
if glb_ShowFlag = True then
begin
glb_ShowFlag := False;
statusBar1.Panels[1].Text:=s[0];
end else begin
glb_ShowFlag := True;
statusBar1.Panels[1].Text:=s[1];
end;
end;
end;

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #11

我考！都已经说得这么明白还问！这家伙分明是个骗代码的！

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #12

to ：BuddyWang
不好意思，写晕了