Question

我使用下面的代码通过单击系统关闭按钮来关闭MDI子窗体，它工作正常：

where('dbo.T_Order.METERID', '=',$meterID)

但是，如果我想通过使用标准按钮（在子表单本身内）关闭MDI子表单。如果我在事件处理程序中调用procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;，则会出现访问冲突异常。

有没有办法通过使用放置在子表单本身内的标准按钮（不是系统关闭按钮）来关闭MDI子表单，而不会引发访问冲突异常？

我已经完成了类似的问题搜索，并尝试了各种代码，但仍然有例外。

Answer 1

在相同子表格的按钮Close()内，在子MDI表单上调用OnClick 完全安全。在内部，Close()会触发OnClose事件，如果Action参数设置为caFree，则表单将自行调用Release()，这是< em>延迟操作，可以在安全的情况下将表单从内存中释放。

以下代码在Delphi 7中对我来说非常合适：

unit ChildUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TChildForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChildForm: TChildForm;

implementation

{$R *.dfm}

procedure TChildForm.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.

如果您在致电Close()时收到访问冲突，最可能的罪魁祸首是您在无效的表单指针上调用Close()。

如何在不使用系统关闭按钮的情况下关闭MDI子项

1 个答案: