<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 关于ProgressForm的bug<br /><small>当在一个showmodal的窗体上用这个进度条时，关闭后showmodal的窗体会变成不是showmodal的，<br />
这时点主窗体可以把这showmodal窗体给隐藏掉，<br />
原因就是这个的formlist被禁窗体引起的<br />
如图修改代码就不会出现这种问题<br />
 <br />
procedure ShowProgress(Aowner:TComponent;const Title: string);<br />
var<br />
  i: Integer;<br />
begin<br />
  if not Assigned(ProgressForm) then<br />
    ProgressForm := TProgressForm.Create(Aowner)<br />
  else<br />
    ProgressForm.BringToFront; ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=1953&amp;start=0&amp;offset=497&amp;sid=y9UMos">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=14&amp;sid=y9UMos">CnVCL 组件包</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=1953&amp;sid=y9UMos">关于ProgressForm的bu ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=1949&amp;sid=y9UMos">为 AAFadeText 组件提 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=y9UMos">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>