一个很菜的问题关于 BitBtn与Button

[wrqwrq]

BitBtn继承自TBitBtn,而TBitBtn又继承自TButton，但是有一个问题我不大明白，比如说我现在新建一个窗体，然后在窗体上放一个BitBtn，把Kind属性设置为bkClose,
然后我们运行这个程序，点击BitBtn按钮，程序就会结束，这是为什么？请高手详细说明，谢谢。

[lxl]

这是BITBTN源程序中写在TBitBtn.Click（=ONCLICK）的一部分，其中FKIND为当前的BITBTN的KIND PROPERTY

case FKind of
bkClose:
begin
//得到BITBTN所在的FORM
Form := GetParentForm(Self);
//如果FORM<>NIL 就完成关闭当前FORM的
if Form <> nil then Form.Close
//否则就去完成DELPHI用户写的CLICK代码
else inherited Click;
end;

明白了吗？

[wrqwrq]

明白了谢谢。