父类窗体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 只在父类中起做用
时间: 2024-10-26 04:06:59