inherited für Vorfahren-Methode aufrufen

[negaH]

Es geht auch noch anders

Delphi-Quellcode:

type
  TPaintMethod = procedure of object;

procedure TObjectXYZ.Paint;
var
  N: TPaintMethod;
begin
  TMethod(N).Data := Self;
  TMethod(N).Code := @TWinControl.Paint;
  N; 
end;

Ist zwar ein Trick funktioniert aber.

Gruß Hagen