盒子论坛 v2.1

是这样的,我现在有一个statusbar,里面有两个text,然后我想通过Timer来控制其中一个text能够动态左右移动即statusbar1.Panels[0].Text.请问该怎么做?
----------------------------------------------
我是菜鸟，望大家多指教

作者：

boy (阿門)	★☆☆☆☆	-
	盒子活跃会员

2003/7/15 16:53:44

1楼：

  a:string;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:='  Try Try See !...';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
begin
  statusbar1.Panels[0].Text:=a;
  for i:=1 to (length(a)-1) do
    a[i] := statusbar1.Panels[0].Text[i+1];
  a[length(a)] := statusbar1.Panels[0].Text[1];
end;
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★

信息

登陆以后才能回复