Указатель за витруальный метод предка.

← →
malkolinge © (2004-03-01 13:07) [0]

Как сабж получить ? (естественно без прямого обращения к ВМТ)

надо нечто
func : function:boolean of object.
func:=inherited GetEnbaled;

← →
Тимохов © (2004-03-01 13:23) [1]

Так легко не знаю. Но можно сделать так

type
cls1 = class
procedure a; virtual;
end;

cls2 = class(cls1)
procedure a; override;
end;

type ta = procedure of object;

procedure cls1.a;
begin
showmessage("hellow");
end;

procedure cls2.a;
var
a1: ta;
begin
tmethod(a1).code := @cls1.a;
tmethod(a1).data := self;
a1; // вызов
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
cls2.create.a;
end;

Вообще говоря, имхо, очень странное желание знать указатель на метод предка. Может можно как-то без этого обойтись?

Указатель за витруальный метод предка. Найти похожие ветки