求助各位大侠关于子窗体问题,困扰几天了--运行时出错 在线等 谢谢啦
hksl 2004-03-12 04:26:10 我现在有四个窗体,一个封面(frmconnect),一个登陆窗体(frmlogo),一个主窗体MDIFORM(frmmain),一个MDIChild窗体(frmSysFunction),我想实现 先封面出现 在出现登陆窗体,在出现主窗体,同时mdichild也出现在主窗体中
在项目中的代码是:
begin
Application.Initialize;
frmconnect:=Tfrmconnect.Create(application);
frmconnect.Show;
frmconnect.Update;
sleep(1000);
Application.CreateForm(Tfrmlogo, frmlogo);
Application.CreateForm(Tfrmmain, frmmain);
frmlogo.Show;
frmlogo.Update;
frmconnect.Hide;
frmconnect.Free;
Application.Run;
end.
在登陆窗体中的button1中写的代码是
procedure Tfrmlogo.Button1Click(Sender: TObject);
begin
frmmain.show;
frmmain.update;
frmlogo.Hide;
frmlogo.Free;
application.CreateForm(TfrmSysFunction,FrmSysFunction);
frmSysFunction.Show;
frmSysFunction.Update;
end;
但是当一点击 button时就会出现这么一个提示:
“con't creat form . No MDI forms are currently active.”
请问各位大虾什么原因呀,错误在哪里呀 或者有什么好的方法,谢谢啦!