unit mydbnavintfaceuses Variants, Windows, SysUtils, Messages, Controls, Forms, Classes,Graphics, Menus, StdCtrls, ExtCtrls, Mask, Buttons, ComCtrls, DB;type tmydbnav = class(tdbnavigator);
private
...
protected ....
procedure editingchanged;//这个在tdbnavigator已经存在,我希望在这个方法增加一些功能 .....implementationprocedure tmydbnav.editingchanged;
begin
tnavigator.editingchanged;//编译时提示:'未定义的标识'....end;end.
editingchanged是受保护的静态方法,有什么方法能在这个派生类中的相同方法引用呢,我记得书上说这样子是可行的.请高手不吝赐教!
private
...
protected ....
procedure editingchanged;//这个在tdbnavigator已经存在,我希望在这个方法增加一些功能 .....implementationprocedure tmydbnav.editingchanged;
begin
tnavigator.editingchanged;//编译时提示:'未定义的标识'....end;end.
editingchanged是受保护的静态方法,有什么方法能在这个派生类中的相同方法引用呢,我记得书上说这样子是可行的.请高手不吝赐教!
protected
procedure a;
end; tb = class(ta)
public
procedure a;
end;
{ ta }procedure ta.a;
begin
messagebox(0, 'ta.a', nil, 0);
end;{ tb }procedure tb.a;
begin
inherited a;
messagebox(0, 'tb.a', nil, 0);
end;
with tb.Create do
try
a;
finally
Free;
end;
begin
//tnavigator.editingchanged;//编译时提示:'未定义的标识'
inhertied editingchanged;