cannot make visible windows
JTB 2004-11-02 08:44:23 "cannot make a visible window"
小弟在作登陆界面时遇到了这样的情况:
1.我在主窗口的formcreate事件里调用登陆窗口的showmodal就会出现上面的错误。
代码如下:
procedure Tfrm_nMain.FormCreate(Sender: TObject);
{var
frm_login : Tfrm_login;}
begin
frm_login := Tfrm_login.Create(Self);
if frm_login.ShowModal <> mrOK then
begin
Exit;
end;
Init_mForm;
Init_dbConnect;
end;
在程序的另外一个部分同样也是这样写的
(procedure Tfrm_nMain.N7Click(Sender: TObject);
begin
frm_qe := Tfrm_qe.Create(Self);
if frm_qe.ShowModal <> mrOK then
begin
Exit;
end;
end;)
不同的是第一个例子是在主窗口生成之前调用另外一个form
第二个例子是在主窗口生成以后单击菜单项生成另外一个窗口,第二个例子没有问题。而第一个却有问题,小弟不知道是什么原因,请指教。
(注释:在projects的选项里面我已经把除了主窗口以外的所有窗口都设置成为available了)
2.对于第二个例子虽然对了,但是我还有疑问,如果在该例子的开始加上var frm_qe :Tfrm_qe;程序同样是没有错误的,这是为什么?这样是正确的那么两种写法是有什么区别呢?