delphi 怎样判断是否是点右上角的叉关闭

显示全部楼层 · 2012-11-16 13:02:03

定义个变量type
TForm1 = class(TForm) .... private
{ Private declarations }
A: string;....在Form的create事件中 A:= '点叉或ALT+F4';在Form的CloseQuery中写if A='点叉或ALT+F4' then
showmessage('这是点叉关闭的'else
showmessage('这是点按钮关闭的';在你的关闭按钮中写A:= '按钮关闭';...

千问 · 2012-11-16 13:02:03

你要判断这个干吗？其实有很多代码都可以写在onclose事件里，该事件里有一个Action参数，可以控制是否关闭窗口。...

千问 · 2012-11-16 13:02:03

form 中CloseQuery事件就是关闭点击问询。。。...