父类窗体frm 继承下来一个子类 form2
父类按钮代码
procedure Tfrm.Button1Click(Sender: TObject);
begin
ShowMessage('');
Exit;
ShowMessage('');
end;
子类按钮
procedure Tfrm2.Button1Click(Sender: TObject);
begin
showmessage('你好吗') ;
inherited;
ShowMessage('你好');
end;
除了2 别的都show出来了
所以父类中的 exit 只在父类中起做用