inherited für Vorfahren-Methode aufrufen

[jbg]

Zitat von negaH:

Es geht auch noch anders

Dann doch lieber so:

Delphi-Quellcode:

type
  TBaseControl = class(TCustomControl)
  protected
    procedure BasePaint;
    procedure Paint; override;
  end;

  TObjectXYZ = class(TBaseControl)
  protected
    procedure Paint; override;
  end;

{ TBaseControl }

procedure TBaseControl.BasePaint;
begin
  inherited Paint;
end;

procedure TBaseControl.Paint;
begin
  BasePaint;
  {...}
end;

{ TObjectXYZ }

procedure TObjectXYZ.Paint;
begin
  BasePaint; // TCustomControl.Paint aufrufen
  { neuer Code }
end;