等待窗体调用问题(50分)

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #1

原代码如下
procedure TFRMMAIN.ZGGLClick(Sender: TObject);
begin
if FRMZGGL= nil then frmkhzl := TFRMZGGL.Create(SysForm);
FRMZGGL.show;
end;
FRMZGZL里用了TREEVIEW来载入数据,了
现在数据量大了，发现很慢。一不小心，还以为是死机了。
于是做了个FRMWAIT窗体来过渡
当FRMWAIT关闭时，
FRMZGZL已经载入数据和控件。
这应该怎么做。谢谢。

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #2

up

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #3

看好了就拿分。
begin
frm_wait :=Tfrm_wait.Create(nil);
try
if frm_wait.showmodal =mrOK then
begin //当载入过程完成后 modalresult :=mork 然后close;
frmzggl :=Tfrmzggl.Create(nil);
try
frmzggl.showmodal;
finally
frmzgg.free;
end;
end;{end if}
finally
frm_wait.free;
end;
end;

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #4

抄袭：
begin
frm_wait :=Tfrm_wait.Create(nil);
try
frm_wait.show;
begin
frmzggl :=Tfrmzggl.Create(nil);
try
frmzggl.showmodal;
finally
frmzggl.free;
end;
end;{end if}
finally
frm_wait.free;
end;
end;

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-09

• #5

多人接受答案了。