主题:某父类的一个过程没有virtual标志,而我想在它的派生类在使用重载增加该过程的功能,如何做呢?
lkdbdlkq
[专家分:0] 发布于 2006-09-22 13:19:00
比如说,我给tpicture类建一个自定义的子类,现在需要给子类的LoadFromFile过程增加一事件,可是父类的tpicture.loadfromfile不支持重载,我该如何做才能在子类的loadfromfile过程中即实现了加载了图片又增加了我需要的功能呢?
回复列表 (共1个回复)
沙发
dodolon [专家分:400] 发布于 2006-09-22 18:34:00
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;
我来回复