关于遇忙等待窗口的问题。(300)

zkktom · 2009-09-29

我写了一个窗体fmwait，里面放了个label ， caption为：系统正在查询，请稍等。其它窗体（假设fmmain）调用的方式为 fmwait.Show; fmwait.Update; s1:=' where a.jqbh like ''%'+ekey.Text+'%'''; dm.opensql(q_temp,s+s1+' order by jqbh'); fmwait.visble:=false; 本fmwait执行没有问题，就是有个奇怪的问题，如果我在执行等待语句（sql记录比较长）的时候，如果点了fmmain的窗口，等结果出来后，这个fmwait没有消除，还在。请教如何处理！

de410 · 2009-09-29

fmwait.visble:=false;改为fmwait.hide;

pbluec · 2009-09-29

这个最好用多线程去操作要不用我以前最简单的方法,把WINDOWs的所有特效全开,就会自动消失了

dafuwenn · 2009-09-29

fmwait.Show; fmwait.Update; try s1:=' where a.jqbh like ''%'+ekey.Text+'%'''; dm.opensql(q_temp,s+s1+' order by jqbh'); finally fmwait.close; end;

zkktom · 2009-10-14

上述办法不行。请问你们怎样处理的呢？

delhpi · 2009-10-14

搞个topmosts属性

zkktom · 2009-10-16

怪就怪在一个问题上，我编译调试的时候怎么样处理都是好的，但是当运行编译好的程序的时候就出现上述的情况，正的很怪

wql · 2009-10-16

var tmd:dword;begin fmwait.Show; fmwait.Update; // 加上 tmd:=gettickcount()+603 while tmd>gettickcount() do application.processmessages;s1:=' where a.jqbh like ''%'+ekey.Text+'%'''; dm.opensql(q_temp,s+s1+' order by jqbh');

zkktom · 2009-11-02

wql,不行哦

shangshang · 2009-11-02

fmwait:=Tfmwait.create(application); fmwait.show; fmwait.Update; s1:=' where a.jqbh like ''%'+ekey.Text+'%'''; dm.opensql(q_temp,s+s1+' order by jqbh'); fmwait.visble:=false; freeandnil(free);这样更保险一点。

delhpi · 2009-11-02

freeandnil(free);

zkktom · 2009-11-14

多人接受答案了。

关于遇忙等待窗口的问题。(300)

zkktom

Unregistered / Unconfirmed

de410

Unregistered / Unconfirmed

pbluec

Unregistered / Unconfirmed

dafuwenn

Unregistered / Unconfirmed

zkktom

Unregistered / Unconfirmed

delhpi

Unregistered / Unconfirmed

zkktom

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

zkktom

Unregistered / Unconfirmed

shangshang

Unregistered / Unconfirmed

delhpi

Unregistered / Unconfirmed

zkktom

Unregistered / Unconfirmed

Similar threads