如何让封面窗体停留3秒钟(50分)

M

menmokey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #1

如何让封面窗体停留3秒钟

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #2

Sleep(3000);

 

B

bald_eagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #3

在工程文件中选File->New Form新建一个窗口，设计好窗口的外观。给窗口起名为
AboutBox,选Project->Options，将新建的窗口从自动建立中去掉。 选
View->Project Source，打开工程文件的源文件，在下面加入红色的句子。

Uses AboutBox
Var
lTime :TDateTime;
Begin
Application.Initialize();
AboutBox=TAboutBox.Create(AboutBox);
AboutBox.Show;
AboutBox.Update;
lTime=GetTickCount;
Application.CreateForm(TMainForm,MainForm);
while((GetTickCount-lTime) / 1000 <3) do;
AboutBox.Hide;
AboutBox.Free;
Application.Run;
end;

 

M

menmokey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #4

to 吕雪松
可以写完整吗？

 

H

hnzgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #5

bald_eagle写得不是挺好吗?
sleep有些时候不是太精确

 

H

hurrah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #6

搜索"闪现窗口"关键字，有很多呢。

 

M

menmokey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #7

to bald_eagle
GetTickCount 是什么

 

M

menmokey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #8

接受答案了.

 

T

thong_517

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-02

• #9

用timer控件，加在封面窗体上（firstform）代码如下
procedure TfirstForm.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
end;

在project里加
if firstform=nil then
firstform:=tfirstform.Create(application);
firstform.Show;
firstform.Update;
while firstform.timer1.Enabled do
application.ProcessMessages;

Application.CreateForm(TmainForm, mainForm);

firstform.Hide;
firstform.Free;