关于delphi exit 继承

时间：2016-07-22 17:22:19 阅读：265 评论：0 收藏：0 [点我收藏+]

父类窗体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

踩

(0)

评论一句话评论（0）

分享档案

更多>