★★★★★如何知道一个循环执行完成?

Question

我在一个form的oncreate事件中使用了一个循环,所以这个form打开要很慢,
我想在未打开时显示一个小窗口,提示"正在调入数据请稍候.........."
当那个form的循环执行完成后,这个小窗口自动关闭,显示出form.....如何达到这种功能,请指教,我想了三天了...

Answer 1

显示窗口.Create;
显示窗口.ShowModal;
Application.ProcessMessage;Form1.Create;
Form1.ShowModal;
FreeAndNil(显示窗口);

Answer 2

改正一下：显示窗口.Create;
显示窗口.ShowModal;
Application.ProcessMessage;Form1.Create;
Form1.ShowModal;在Form1.OnShow中：
FreeAndNil(显示窗口);

Answer 3

呵呵 完了 可以发一个自定义消息哦for ...
beginend;
// 完了 
PostMessage(...) // 告诉接受者 循环完了。。

Answer 4

beyondtkl(大龙驹<我在长大>) 
未完之前如何发一个消息给用户.显示"正在调入数据......."??

Answer 5

try
  form1.showmodal;//提示窗口
  for i=0 to 10 do
  begin
    //要处理的工作
  end;
finally
  freeandnil(form1);
end;
我想这样应该可以吧

Answer 6

victor_yang(victoryang) ( 
按你的方法
显示窗口.Create;
显示窗口.ShowModal;
Application.ProcessMessage;之后显示窗口一直显示没有关闭,
手工关闭显示窗口后,form1才开始执行循环

Answer 7

Tensionli() 
我试过你的方法,不知为什么之后显示窗口一直显示没有关闭,
当我把form1.showmodal改成form1.show,不知为什么form中的label1文字不显示