Delphi中使用MiDi风格窗口时主窗体不是MiDi风格出错

Question

如题!!
谢谢~~~

Answer 1

如果把MIDI父窗体设为首运行，则不会出错！
若把登陆窗体设为首运行，然后登陆到MIDI父窗体，当打开MIDI子窗体时报错！
说好像是找不到MIDI窗体！在线等````谢谢~~~~

Answer 2

结果如楼主所说,所以得设把MIDI父窗体设为首运行;
其他的关注中.

Answer 3

若把MIDI父窗体设为首运行,,那登陆怎么实现??

Answer 4

begin
  Application.Initialize;
  LoginPic:=TloginPic.Create(Application);//创建登入前的欢迎图片界面
  LoginPic.show;
  LoginPic.update;
  try
  Application.Title := '你的系统名称';
  Application.CreateForm(TDM, DM);//创建data module
  Application.CreateForm(Tmainform, mainform);  //创建父form
  DM.adoc.Connected:=true;
  LoginPic.Free;                   //数据库连接成功则欢迎图结束
  Application.CreateForm(TLogin, Login);  //输入操作员等
  if login.ShowModal=1 then               
  Application.Run                         //如果登入成功则显示主form
  else
  Application.Terminate;                  //不成功就结束整个程序
  except
  Application.MessageBox('连接数据库失败！！！','连接数据库');
  LoginPic.Free;
  Application.Terminate;
  end;
end.

Answer 5

还有一种方法就是FormMain的create事件中产生登入窗体

Answer 6

to:jyutwo(小义) FormMain的 Create事件中show 出login窗体还是会出错！！我 用的是 ：
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Login.Show;
end;
请帮我 看下！！