Delphi 窗体闪烁

[YZH_0710]

有两个窗体，一个是主窗体，一个是显示窗体，当主窗体的计算按钮按下，计算结束后显示窗体会以独占的方式(c++里头叫做非模态对话框)显示主窗体计算的结果，在显示窗体显示出来的情况下，我点击显示窗体以外的窗体都会有提示音 “ 噔” 的响声，一直点就一直 “噔噔噔” 请问这个是什么事件，怎么实现再这个事件中让显示窗体闪烁，像MessageBox() 一样能闪烁提示，如果显示窗体是最小化的，让他还原后再闪烁，怎么实现 知道的大虾帮帮忙

[sundayzhao]

showModal即可

[haitao]

主窗口a里 showmodal一个弹出窗口b，点a的位置都会警告 b最好禁止调增窗口大小 如果此时a需要长时间计算，最好把计算的过程放在b的显示事件，因为b.showmodal后，a的代码会卡住

[英年渐肥]

模式窗体本来就是独占模式、本身就会有声音，window系统自带

[cdzhaoye]

显示窗体采用 Show（非模态显示） 而非showModal，至于闪烁，最简单的办法就是在 显示窗体上放个TTimer，让Ttimer 事件激活窗体显示直到用户在显示窗体上进行过操作