Delphi调用爷爷类的方法

Delphi通过inherited 可以调用父类的方法,但是没有提供直接调用父类的父类的方法(爷爷类),通过变通的方式实现如下:

假设父类是TFather,爷爷类TGrand,调用爷爷类的Write方法:

1
2
3
4
5
6
7
8
9
type
  TWriteProc=procedure of Object;
var
  WriteProc:TWriteProc;
 
....
  TMethod(WriteProc).Code:=@TGrand.Write;
  TMethod(WriteProc).Data:=Self;
  WriteProc;

  

posted @   子航  阅读(1326)  评论(3编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示