delphi - Delphi：关闭所有表单（MainForm 除外），但忽略任何 OnCloseQuery 对话框

Question

基本上，我正在使用一个TTimer事件来关闭所有打开的表单并将用户带回主表单。我可以遍历Screen.Forms：

for i := 0 to Screen.Formcount - 1 do
  Screen.Forms[i].close;

问题是其中OnCloseQuery一些表单上的事件 - 它们弹出MessageDlg会中断这个过程:(

Answer 1

您可以在主表单中使用一个标志，在询问用户是否继续之前，您的其他表单会检查该标志。像这样的东西：

单元1

type
  TForm1 = class(TForm)
    ..
  public
    UnconditinalClose: Boolean;
  end;

..

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  UnconditinalClose := True;
end;

单元2：

implementation

uses
  unit1;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := unit1.Form1.UnconditinalClose;
  if not CanClose then
    // ask the user if he/she's sure he/she wants to close
end;

另一种解决方案可能是分离OnCloseQuery其他形式的事件处理程序。这只有在关闭时释放（释放）这些其他表单而不是隐藏（编辑以反映 Rob 的评论）时才实用：

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
  SaveHandler: TCloseQueryEvent;
begin
  for i := 0 to Screen.Formcount - 1 do
    if Screen.Forms[i] <> Self then begin
      SaveHandler := Screen.Forms[i].OnCloseQuery;
      Screen.Forms[i].OnCloseQuery := nil;
      Screen.Forms[i].Close;
      Screen.Forms[i].OnCloseQuery := SaveHandler;
    end;
end;

Answer 2

for i := 1 to Screen.Formcount - 1 do
  Screen.Forms[i].close;

将值 i 初始化为 1，而不是 0。