如何用delphi實現走馬燈的效果

Question

如何用delphi實現走馬燈的效果

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-10;
if label1.Left<=Form1.ClientRect.Left then
    label1.Left:=form1.ClientRect.Right;
end;

Answer 2

对，放入一个timer控件，将时间间隔设为20,然后放入lable1:procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-10;
if label1.Left<=Form1.ClientRect.Left then
    label1.Left:=form1.ClientRect.Right;
end;

Answer 3

http://218.56.11.178:8020/web/index.aspx->软件基地->搜索-》让图象平滑移动无闪烁感2