怎么样使LOGO窗体延迟3秒钟？100分送在线等待给分！！1

Question

我IDE内容比较少LOGO窗体一闪就过了
怎么样使LOGO窗体延迟3秒钟？

Answer 1

在Logo窗体上方一个Timer控件,Interval属性设置为3000,在OnTimer事件中写Close;

Answer 2

可在我的LOGO窗体还没有释放的时候我的IDE窗体内容已经显示了，这会覆盖掉我 的LOGO窗体的
这个问题的解决方法能请教一下么？

Answer 3

假设frm_Start是LOGO窗体
在项目文件 .dpr中，在创建主窗体前，加入如下：  //以下三行创建封面，延时程序在主窗体的OnCreate事件中
  frm_Start := Tfrm_Start.Create(Application);
  frm_Start.Show;
  frm_Start.Update;在主窗体的OnCreate事件中加入如下：procedure Tfrm_Main.FormCreate(Sender: TObject);
var
  StopTime : LongInt; //为封面延时而设的临时变量
begin
  //以下三行是封面延时程序
  StopTime := GetTickCount div 500;
  while ((GetTickCount div 500)<(StopTime+2)) do
    Sleep(1);
end;调整Sleep的值到自己所需的时间即可。

Answer 4

Sleep(3000);
Application.create(TMainForm, MainForm);

Answer 5

StopTime := GetTickCount div 500;
  while ((GetTickCount div 500)<(StopTime+2)) do
    Sleep(1);
end;
我一般的就是用这种方法

Answer 6

Sleep(3000)象是死机了,用Timer和GetTickCount比较合适

Answer 7

先定义一个变量StartTime记录当前时间StartTime:=Now,在Logo.show之后,Logo.Free之前加入以下语句就实现了延迟3秒 
 Repeat
    Application.ProcessMessages;
 Until Now>StartTime+3*(1/24/60/60);

Answer 8

在上面夹一个Timer然后
procedure TFrm_Flash.timDelayTimer(Sender: TObject);
begin
  num := num + 1;
  if Num = 3 then
  begin
    TimDelay.Enabled := False;
    close;
    FrmMain.Update;
    FrmMain.Enabled := true;
  end;
end;