inherited für Vorfahren-Methode aufrufen

[uligerhardt]

Zitat von oki:

Mach ich's halt so:

Delphi-Quellcode:

TMyBaseControl = class(TCustomControl)
  private
    FfirstProperty : string;
  protected
    procedure Paint; override;
    procedure MyCustomDraw; virtual;
  end;


  TMyNewControl = class(TMyBaseControl)
  protected
    procedure MyCustomDraw; override;
  end;

procedure TMyBaseControl.Paint;
begin
  inherited Paint;
  MyCustomDraw;
end;

procedure TMyNewControl.MyCustomDraw;
begin
  // hier alles neue ohne inherited
end;

Oder leite TMyNewControl nicht von TMyBaseControl ab, sondern führe eine neue Basisklasse für beide ein, die ein "leeres" Paint enthält, sonst aber das gleiche leistet wie dein bisheriges TMyBaseControl.