菜鸟问题，

Question

如何在DELPHI里实现如foxpro里
WAIT "正在进行查询！" WINDOWS AT 20,30 NOWAIT这个语句的功能。谢谢

Answer 1

1、建立一个等待窗口
2、引用这个等待窗口
3、按照下面的模子写
   FormWait := TFormWait.Create( Nil );
   Try
      FormWiat.Show;
      Try
         Query.Open;
      Except
      End;
   Finally
          FormWait.Free;
   End;

Answer 2

如果达不到你的要求，就自已做一个小弹出窗口，
窗口上放lable，caption属性写："正在进行查询！" 
用一Timer，在你想要的时间段后关闭此窗口。

Answer 3

也可以不用Trimr，在你查询完前Show，在你查询完后就close;

Answer 4

自已做一个小弹出窗口，
窗口上放lable，caption属性写："正在进行查询！" 
大体语句如下：
 Try
  Query.open ;//开始查询
  if FormWait <>nil then
   FormWait := TFormWait.Create( Nil );   
  FormWiat.Show ;
  Query.close ;//查询结束
  FormWiat.free ; //释放FormWiat；
 Except
  FormWiat.free ; //发生异常，释放FormWiat；
   End;

Answer 5

Delphi_Li(Delphi Li) 谢谢你的回复
我在等待窗口放一个lable，caption属性写："正在进行查询！" 
可是在查询的时候窗口上没有显示正在进行查询！
我把FormWiat.Show;改为FormWiat.Showmodal;就可以显示
可是程序就无法执行下去，