TCustomDBGridHelper = class helper for TCustomDBGrid
private
//点击表头事件
procedure DoHeaderClick(Index: integer);
end;
procedure TCustomDBGridHelper.DoHeaderClick(Index: integer);
begin
ShowMessage('DoHeaderClick');
inherited;
end;
需求:自己写了一个TDBGrid控件,想改写TCustomDBGrid.DoHeaderClick这个方法,然后继承一下
问题:
1、TCustomDBGridHelper.DoHeaderClick不执行
2、inherited也不知道继承有没有用
自己测试搞定了,做个记录,私有域方法覆盖要在同单元才行,不然无效。inherited也是有用的。
有需要用的上这个知识点的流氓们,共勉!