怎么样在窗口关闭时拦截窗口的WM_DESTROY事件。（delphi)

Question

去看‘防止关闭windows’Delphi文档，把消息替换即可！

Answer 1

在FORM的ONCLOSE中添加代码，或者在CLOSEQUENCY中！

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TBNClose = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure WMDestroy(var msg: TMsg); message WM_DESTROY;
  public
    { Public declarations }
  end;var
  BNClose: TBNClose;implementation{$R *.DFM}{ TBNClose }procedure TBNClose.WMDestroy(var msg: TMsg);
begin
  {此处加入想要执行的过程}
  inherited;
end;procedure TBNClose.Button1Click(Sender: TObject);
begin
  Close;
end;end.

Answer 3

上面有点不当之初
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TFMTest = class(TForm)
    BNClose: TButton;
    procedure BNCloseClick(Sender: TObject);
  private
    procedure WMDestroy(var msg: TMsg); message WM_DESTROY;
  public
    { Public declarations }
  end;var
  FMTest: TFMTest;implementation{$R *.DFM}{ TBNClose }procedure TFMTest.WMDestroy(var msg: TMsg);
begin
  {此处加入想要执行的过程}
  inherited;
end;procedure TFMTest.BNCloseClick(Sender: TObject);
begin
  Close;
end;end.