在我们的系统中经常需要提示系统忙啊什么，就想查询大量数据时，我们可能需要让用户等待一段时间，这一段时间我们设计可以是这样：
1： 将鼠标变成忙 2： 加上状态拦 3： Show出来一个窗体，显示正在查询大量数据
我的问题就是我采用如下代码： procedure btnQuery_clicked(Sender:TObject)
begin
FormBusy.ShowModal();
try
.Query(); except
end;
这里是有问题的，窗体ShowModal之后，在底下的代码是不能执行的？那么如何做呢？作成象SQL-Server连接数据库一样，给个提示？（我头晕啊，我想不起来了！哎！）
1： 将鼠标变成忙 2： 加上状态拦 3： Show出来一个窗体，显示正在查询大量数据
我的问题就是我采用如下代码： procedure btnQuery_clicked(Sender:TObject)
begin
FormBusy.ShowModal();
try
.Query(); except
end;
这里是有问题的，窗体ShowModal之后，在底下的代码是不能执行的？那么如何做呢？作成象SQL-Server连接数据库一样，给个提示？（我头晕啊，我想不起来了！哎！）
showmodal内含消息循环要达到你的目的
可以用show方法
并且可以用setwindowlong 或 重载 form地createparam来是窗口能位于最上层