Delphi程序创—ataModule模块不成立弹出窗口。
在程序入口处。先检查DataModule模块上的数据库连接是否成功后再创建窗口。如果连接失败就弹出配置窗口。

 
 
[解决办法]
iniF.Show;
//这里弹出配置窗体。但是登陆窗体也同时弹出了。不知道上面原因。
---------------------------------------------
改成showmodal;



引用:
Quote: 引用:


Application.CreateForm(Tdtmdl1, dtmdl1);
if mrOk <> dtmdl1.isConnected then  //通过自定义函数isConnected检查数据模块连接是否成功
begin
  //不成功时, 打开配置窗口
  with TInfo.create(Application) do
  try
    if mrOk <> showmodal then //取消配置则退出程序
      Application.Terminate
  finally
    free;
  end;
end;

谢谢。如果使用我的那种方法。是否正确？

正确, 两个实现都可以达到目的.