可以控制logo窗口的显示时间吗？

Question

谢谢！

Answer 1

简单的方法
在主窗体的oncreate中sleep(??)

Answer 2

不理解你的意思，如果只是控制，那太简单了，直接在控制单元uses你的logo窗口单元，然后写代码就OK了

Answer 3

就是想让该logo窗口多滞留一段时间，如5秒。

Answer 4

begin
  Application.Initialize;
  try
  form3:=tform3.Create(application);
  form3.Show;
  form3.update;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  finally
  form3.free;
  end;
  Application.Run;
end.
就是这段算法，不知如何添加语句？

Answer 5

工程文件中或oncreate中加
sleep(xx)

Answer 6

这时不应该选择使用Sleep,这在单任务的DOS程序中很有效果但在Window下用Sleep会使整个进程失去响应,和"死机"没什么区别用下面的方法暂停5秒,在一个循环中放置Application.ProcessMessages相应进程的其它消息var
  i:Integer;i:=GetTickCount;
While (GetTickCount-i < 5000) Do Application.ProcessMessages;

Answer 7

1.Sleep
2.写在dpr文件当中,如 huangrx(一水寒) 所述
3.计算时间差,如 ehom 所述
4.使用TThread
5......太多的方法，关键是你需要完成什么样的功能，你想怎么做

Answer 8

form3.FormStyle := fsStayOnTop;在Form3中编程,等待5秒以后关闭。
例如： Form3中添加Ttimer控件Timer1procedure TForm3.Formcreate(Sender : TObject);
begin
   timer1.Inteval := 5000;
   timer1.enabled := true;
end;procedure TForm3.Timer1Timer(Sender: TObject);
begin
  timer1.enabled := false;
  close;
end;