回 帖 发 新 帖 刷新版面

主题:某父类的一个过程没有virtual标志,而我想在它的派生类在使用重载增加该过程的功能,如何做呢?

比如说,我给tpicture类建一个自定义的子类,现在需要给子类的LoadFromFile过程增加一事件,可是父类的tpicture.loadfromfile不支持重载,我该如何做才能在子类的loadfromfile过程中即实现了加载了图片又增加了我需要的功能呢?

回复列表 (共1个回复)

沙发

public
  procedure xxxx(param1:type1;param2:type2;param3:type3);

implementation

procedure YourClass.xxxx(param1:type1;param2:type2;param3:type3);
begin
  inherited xxxx(param2,param3);
  .....
end;

我来回复

您尚未登录,请登录后再回复。点此登录或注册