我从TComboBox继承了一个控件,为什么运行出错(2)
TComboBox控件有一个OnExit事件,我怎么实现先让它执行一段固定的代码.
然后再执行用户自己定义的代码呢?
问题点数：30、回复次数：6Top
1 楼jycn666（jycn666）回复于 2003-06-04 15:57:44 得分 0
"我怎么实现先让它执行一段固定的代码.
然后再执行用户自己定义的代码呢?"
两句话，在我看来好象一个意思，能否说清楚点？问题似乎不难。
Top
2 楼smilelhh（blue）回复于 2003-06-04 16:10:50 得分 0
意思就是:
我在组件封装时, `默认让onexit做一些事,
用户将我的组件放在窗口上时,不是还可能会对它的Onexit事件增加代码吗?
我在组件的oncreate事件中有 OnExit:= Exit;//Exit是我的一个函数,处理默认事件操作
结果生成控件后,加到窗体上,只要对onexit事件加入代码就不执行exit函数了.
Top
3 楼smilelhh（blue）回复于 2003-06-04 16:15:00 得分 0
换句话说:是否可以事件重载,怎么重载?Top
4 楼lxpbuaa（桂枝香在故国晚秋）回复于 2003-06-04 16:23:12 得分 30
protected
procedure DoExit;override;
//................
procedure TYourControl.DoExit;
begin
inherited;
//新的代码
end;
而不要用OnExit:= Exit这种方式。这种方式并不是不可以，但是光这句还不行
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————Top
5 楼Linux2001（闭关开发中）回复于 2003-06-04 16:41:39 得分 0
用楼上的方法Top
6 楼smilelhh（blue）回复于 2003-06-05 08:33:35 得分 0
谢谢.解决.结帐Top
