移动文字

Question

有delphi的lable控件 可以显示左右方向移动文字

Answer 1

快过年了,我在这里给您拜年了!
真诚的祝愿你们在新的一年里:
所有的希望都能如愿,
所有的梦想都能实现,
所有的等候都能出现,
所有的付出都能兑现。
诚挚地祝福您:
福气多多,快乐连连,好事圆圆,微笑甜甜。
祝您事业走上"红塔山",爱情骑上"万宝路",财源滚滚"大中华"。
最后祝您：
一帆风顺,二龙腾飞,三羊开泰,四季平安,五福临门,
六六大顺,七星高照,八方来财,九九同心,十全十美,
百事亨通,千事吉祥,万事如意!365天,天天快乐,吃好，玩好，睡好，永远没烦恼,一生过得好!
╔♂╗┏┯┓┏┯┓┏┯┓┏┯┓╔♀╗ 
┃★┃┠新┨┠年┨┠快┨┠乐┨┃☆┃ 
┃☆┃┗┷┛┗┷┛┗┷┛┗┷┛┃★┃ 
╚♂╝↘*≡恭≡喜≡发≡财≡*↙╚♀╝                                                            
█████████
█┏━━━━━┓█
█★专业灌水证★█
█ 中国CSDN协会 █
█ ☆荣誉颁发☆ █
█ 【彼岸の花】 █
█★专业灌水证★█
█┗━━━━━┛█
█████████

Answer 2

var
  Form1: TForm1;
  iCount : integer;
implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if iCount < 20 then
  begin
    Label1.Caption := ' ' + Label1.Caption;
    Inc(iCount);
  end
  else if iCount < 40 then
  begin
    Label1.Caption := Copy(Label1.Caption, 2, Length(Label1.Caption) - 1 );
    Inc(iCount);
  end
  else
    iCount := 0;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  iCount := 0;
end;end.
Label要把AutoSize 设置为True;

Answer 3

免费下载地址是：http://www.lmdinnovative.com/

Answer 4

用一个Timer控件,很容易实现啊

Answer 5

TmyLabel=class(TLabel)
...
private
 Ftimer:TTimer;
...
construtor TmyLabel.Create(aOwner:TComponent);
begin
  inherited Create(aOwner);
  Ftimer:=TTimer.Create(Self);
  FTimer.enabled:=true;
end;
Destructor TmyLabel.Destroy;
begin
 Ftimer.free;
 inherited Destroy;
end;
//定时器里移动文字坐标,Paint 方法里画不就完了.自己做了.别人的东西用着不塌实.呵呵.

Answer 6

用LABEL实现不好，会闪；用Canvas就非常好，稳定，好控制不闪烁。放上控件：Timer和PaintBox
在Timer的OnTimer事件中：
if x>=0-PaintBox1.Canvas.TextWidth('新年快乐') then 
  x:=x-1 
else 
  x:=PaintBox1.Width;
PaintBox1.Canvas.TextOut(x-1,10,'新年快乐');