启动的问题(30分)

  • 主题发起人 主题发起人 11moom11
  • 开始时间 开始时间
1

11moom11

Unregistered / Unconfirmed
GUEST, unregistred user!
我的工程文件
begin
Application.Initialize;
try
Application.CreateForm(TDM, DM);//里面放有连接控件若干个
except
Application.Terminate;
end;
Form_login:= TForm_login.Create(Application);
if Form_login.ShowModal<>mrOK then
begin
Form_login.Close;
Form_login.Release;
Application.Terminate;
我目的是如果数据库路径被改动,程序就结束,可是我改变了数据库路径后,出现一个错误提示,Form_login还是弹了出来,Application.Terminate 好象没有起到作用,怎么回事?
 
Application主窗体还没有建立,此时使用这个是不能退出的。
 
try
Application.CreateForm(TDM, DM);//里面放有连接控件若干个
except
Application.run;//在这里加这句看看
Application.Terminate;
end;
 
不行啊,还有什么办法?
 
用halt代替Application.Terminate看看
在每个Application.Terminate;前加上Application.run;
 
后退
顶部