菜鸟提问：怎么让窗体显示一端时间？

Question

让窗体显示3秒自动关闭~

Answer 1

用timer,interval设为3000,在timer1ontimer事件中写上：self.close;
就OK了

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval:=3000;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
 form1.Close;
end;

Answer 3

Logo图显示3秒怎么弄，我试了试不行

Answer 4

用定时器
private
  temp: DWORD;
procedure TForm1.Form1Create(Sender: TObject);
begin
  temp:=GetTickCount;
end;procedure TForm1.TimerTimer(Sender: TObject);
begin
  if GetTickCount-temp>30000 then
    Close;
end;

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval:=3000;end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 logo.visible:=false;
end;
如果你的logo只是需要显示而不是要在你初始化程序时给出提示 这个应该没有问题 logo时你的Image  初始属性的可视性设置为真