继承问题。

Question

FORM1 里面写procedure TForm1.cxButton1Click(Sender: TObject);
begin
  ShowMessage('aaaa');
end;procedure TForm1.cxButton2Click(Sender: TObject);
begin
  cxbutton1.OnClick := nil;
  cxButton1.OnClick := cxButton1Click;
end;form2 继承form1 procedure TForm2.cxButton1Click(Sender: TObject);
begin
  inherited;
  ShowMessage('b');
end;在form2 里面直接点cxbutton1.可以显示两个showmessage ,如果点过cxbutton2.在点cxbutton1 那就只显示showmessage('aaaa')为什么呢

Answer 1

我是使用delphi xe 这难道是XE的BUG。DELPHI7好像不会哦

Answer 2

  cxbutton1.OnClick := nil; //取消了事件
  cxButton1.OnClick := cxButton1Click;//事件只是指向了父类窗体的方法，子类丢失

Answer 3

子类的button2里不要写inherited。或者楼上的方法~