Delphi – 在主窗体上创建停止应用程序

发布时间：2020-12-15 09:49:40 所属栏目：大数据来源：网络整理

导读：情况如下：在应用程序主窗体上创建事件某些条件不受尊重,因此应用程序需要关闭. 是的,这是一个糟糕的设计,但应该如何关闭应用程序？使用Application.MainForm.Close生成AV. Application.Terminate不是一个很好的选择.其他想法？解决方法 Application.Termin

情况如下：在应用程序主窗体上创建事件某些条件不受尊重,因此应用程序需要关闭.

是的,这是一个糟糕的设计,但应该如何关闭应用程序？使用Application.MainForm.Close生成AV. Application.Terminate不是一个很好的选择.其他想法？

解决方法

Application.Terminate工作正常.但是,请记住它是一个延迟终止,它只是将WM_QUIT消息发布到调用线程的消息队列,因此在调用Application.Run()以开始处理主线程的消息队列之前,应用程序实际上不会终止.因此,在应用程序实际终止之前,您可能会在屏幕上看到MainForm闪烁.如果要避免这种情况,可以将Application.ShowMainForm属性设置为false,例如：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  if (some condition) then
  begin
    Application.ShowMainForm := False;
    Application.Terminate;
  end;
end;

但是,正如其他人所说,更好的设计是在项目的DPR文件中进行检查,甚至根本不创建MainForm,例如：

Application.Initialize;
if not (some condition) then
begin
  Application.CreateForm(TMainForm,MainForm);
  Application.Run;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!