delphi欢迎界面怎么做

添加一个TTimer控件、TLabel控件，设置TForm窗体的DoubleBuffered属性为True。

再编写响应事件代码。

试编写代码如下：

  public
    flag: Integer;//在窗体前面定义一个全局的变量

procedure TForm1.Timer1Timer(Sender: TObject);
var curX: Integer;
begin
  case flag of
    1:
    begin
      curX := Label1.Left + 2;
      if Label1.Left >= Width-Label1.Width then
      begin
        flag := 2; //下一次改变方向
        curX := Width-Label1.Width;
      end;
    end;
    2:
    begin
      curX := Label1.Left - 2;
      if Label1.Left <= 0 then
      begin
        flag := 1; //下一次改变方向
        curX := 0;
      end;
    end;
  end;
  label1.Left := curX;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag := 1;
  Label1.Left := 0;
end;

这个得使用windowsAPI和定时器，基本其他的就没有什么了。

具体一点 抓个图贴上了