一个窗体数据很多。(20分)

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

FRMDATA内数据很多，要相当时间才能创建好，还以为是死机了。（不是主窗体）
想用一个简单的窗体（FRMWAIT）提示一下，
问题是如何在创建FRMDATA时，SHOW出FRMWAIT，当FRMDATA创建好后，FRMWAIT关闭？

 

B

bes96261

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

procedure TBaseForm.FormCreate(Sender: TObject);
begin
DfrmWaitForm:=TDfrmWaitForm.Create(Application);
DfrmWaitForm.show;
DfrmWaitForm.Update;
DfrmWaitForm.Refresh;
.......
end;

procedure TBaseForm.FormActivate(Sender: TObject);
begin
If DfrmWaitForm<>nil then
begin
DfrmWaitForm.free;
DfrmWaitForm:=nil;
end;
.....
end;

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

在frmData创建的时候先创建frmWait并显示它，代码如下：
var
dTick:Integer;
begin
with tfrmwait.create(self) do
begin
show;
end;
Application.ProcessMessages;
//下面是frmData创建事件里的代码，
// dTick := GetTickCount();
// while GetTickCount()-dTick<2000 do
// begin
// Application.ProcessMessages;
// end;
end;

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

必须加Application.ProcessMessages;

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #5

//下面是frmData创建事件里的代码，
// dTick := GetTickCount();
// while GetTickCount()-dTick<2000 do
// begin
// Application.ProcessMessages;
// end;
end;
这段代码是什么意思？

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #6

这段代码对你来说是没用的,我是为了延时才写的,换成你自己的代码就行了.

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #7

最好优化一下你的代码,去掉一些可以去掉的控件,还有,让一些东西用过的时候创建,再FREE到
下次用的时候还创建

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #8

with tfrmwait.create(self) do
begin
show;
end;
Application.ProcessMessages;
把上面的代码加到frmdata的create事件里.

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #9

多人接受答案了。