我从TComboBox继承了一个控件,为什么运行出错(2)

Question

TComboBox控件有一个OnExit事件,我怎么实现先让它执行一段固定的代码.
然后再执行用户自己定义的代码呢?

Answer 1

意思就是:
 我在组件封装时, `默认让onexit做一些事,
用户将我的组件放在窗口上时,不是还可能会对它的Onexit事件增加代码吗?我在组件的oncreate事件中有  OnExit:= Exit;//Exit是我的一个函数,处理默认事件操作
结果生成控件后,加到窗体上,只要对onexit事件加入代码就不执行exit函数了.

Answer 2

protected
  procedure DoExit;override;
//................procedure TYourControl.DoExit;
begin
  inherited;
  //新的代码
end;而不要用OnExit:= Exit这种方式。这种方式并不是不可以，但是光这句还不行————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————