Delphi 窗体显示后执行代码
弄了一个进度条，等窗体显示出来后执行进度条的代码。怎么实现。在show里面写都是执行后才显示窗体
Create也一样。
[解决办法]
进度条框做成一个单独的窗体或单元，在Form1.Show之后调用显示进度条
[解决办法]
比如mainform调用Form1然后显示进度条。在mainform里
Form1.Show;
Wait();//显示进度条
这样不是在show之后显示吗？写在form1.show事件里，和form1.create里，当然会在form1窗体显示之前就显示出来。自己想明白别人的回答再来怀疑！
[解决办法]
delphi的确漏掉这个最常用的事件了
我一般使用onactive，但只有它的第一次被执行才是真正符合的（所以加boolean变量来区分）
[解决办法]
整个全局变量isdo，在formcreate中赋值isdo := false;
然后在onactive事件里边：
if not isdo then
begin
//显示进度条代码
...
isdo := true; //标示已经执行过了
end;
[解决办法]