我想在界面的做一个循环字体流动的效果（问题解决加到50分）

Question

有点像网页那种，用什么控件比较好，或者是有代码吗

Answer 1

定时器加一个label控件，用定时器控制label的left即可。

Answer 2

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;  //Label1 的 AutoSize 属性设置为 False ,Width 设置为你需要的宽度.
    procedure Timer1Timer(Sender: TObject);
  end;
var
  Form1: TForm1;
  S:String='　　　　　　　　　　　　　　　　　　　　我想在界面的做一个循环字体流动的效果（问题解决加到50分）';
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Ch:Char;
  Tmp_Str:String;
begin
  Ch:=S[1];
  if Ord(ch)>127 then
  begin
    Tmp_Str:=Copy(S,1,2);
    Delete(S,1,2);
    S:=S+Tmp_Str;
    Label1.Caption:=S;
  end
  else
  begin
    Tmp_Str:=Copy(S,1,1);
    Delete(S,1,1);
    S:=S+Tmp_Str;
    Label1.Caption:=S;
  end;
end;
end.