小问题

Question

GGJJ小弟有一问题想请教个位：
   我想用TIMER控件做软件的启动界面，如何做?请给出代码。

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if timer1.Interval=1000 then
    form1.Hide;
    form2.Show;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Enabled:=true;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  timer1.Enabled:=false;
end;

Answer 2

private
    i:integer;  //设置一个全局变量procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=i+1;
  if i=2 then
  begin
  form2.ShowModal;
  self.Hide;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
end;

Answer 3

应该是这样
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if timer1.Interval=1000 then
     begin
       timer1.Enabled:=false;
       form1.Hide;
       form2.Show;
     end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Enabled:=true;
end;