如何判断一个窗体的关闭是否由窗体右上角的关闭按钮引发的？(50分)

如何判断一个窗体的关闭是否由窗体右上角的关闭按钮引发的？

我想你是想要在用关闭按钮时不能推出程序.,而在菜单里才能退出,如是这样
你可以设一个变量,当选菜单退出时设置这个变量,然后关闭程序,在CloseQuery中
查看这个变量,就可以知道是怎样关闭的

你的意思我懂。但是我想知道如何得到用户是否点击了窗体上的关闭按钮

unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
Inherited;
if Msg.Result = HTCLOSE then
ShowMessage('鼠标别往这放，一边凉快去！');
end;

end.

多人接受答案了。