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

Question

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

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

Answer 1

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;