如何用不闪烁的方法ShowModal一个FormStyle=fsChild的子窗体

Question

一个FormStyle设为fsChild的窗体,我想让它以ShowModal的方式显示,但在执行下列代码时出现很夸张的闪烁frm1:=Tfrm1.Create(self);
frm1.FormStyle:=fsNormal;
frm1.Visible:=false;
frm1.ShowModal;而把frm1.FormStyle:=fsNormal;和frm1.Visible:=false;这两句交换顺序后,就不闪了,但会出现异常.有什么办法?谢谢

Answer 1

frm1:=Tfrm1.Create(self);
frm1.ShowModal;
这样就可以了，这些属性可以在Frm1里预设好的

Answer 2

这样当frm1失去焦点时,就再也找不着它了,就象藏起来了一样

Answer 3

    LockWindowUpdate(Handle);    frm1:=Tfrm1.Create(self);
    frm1.FormStyle:=fsNormal;
    frm1.Visible:=false;    LockWindowUpdate(0);    frm1.ShowModal;