标签:
父类窗体frm 继承下来一个子类 form2
父类按钮代码
procedure Tfrm.Button1Click(Sender: TObject); begin ShowMessage(‘1‘); Exit; ShowMessage(‘2‘); end;
子类按钮
procedure Tfrm2.Button1Click(Sender: TObject); begin showmessage(‘你好吗‘) ; inherited; ShowMessage(‘你好‘); end;
除了2 别的都show出来了
所以父类中的 exit 只在父类中起做用
标签:
原文地址:http://www.cnblogs.com/SoftWareIe/p/5695845.html