Delphi通过inherited 可以调用父类的方法，但是没有提供直接调用父类的父类的方法（爷爷类），通过变通的方式实现如下： 假设父类是TFather，爷爷类TGrand，调用爷爷类的Write方法： 1 2
Delphi通过inherited 可以调用父类的方法，但是没有提供直接调用父类的父类的方法（爷爷类），通过变通的方式实现如下：
假设父类是TFather，爷爷类TGrand，调用爷爷类的Write方法：
1 2 3 4 5 6 7 8 9type
TWriteProc=
procedure
of
Object
;
var
WriteProc:TWriteProc;
....
TMethod(WriteProc).Code:[email protected]
.
Write
;
TMethod(WriteProc).Data:=Self;
WriteProc;
https://www.cnblogs.com/hezihang/p/4139656.html