Question

delphi 窗口标题栏关闭按钮的疑问?

窗体上放一个 BUTTON(取消) 按钮,
一按BUTTON,就执行我写的 FORM.CLOSE 语句;

如果点击了界面标题栏的关闭(窗体的右上角), 界面也会关闭,

我咋知道是按了BUTTON ,还是点击了窗体的右上角标题栏的关闭?

Answer 1

方法1

写个消息处理
截获WM_SYSCOMMAND 如果是SC_CLOSE
说明X按钮被点击

方法2
偷懒式处理
窗体 onshow时 i:=0
按钮点击 执行
i:=1;
Close;

那样的话 X按钮被点击的时候 i是等于0的
判断i值就知道

Answer 2

onclick事件有个sender参数可以判别：
if sender is Tbutton then ....
if sender is Tform then ...
搞定！