inherited für Vorfahren-Methode aufrufen

[oki]

Jo, dass ist mal Pech. Dachte ich mir schon, war mir aber nicht sicher. Dann muß ich mir was anderes einfallen lassen.

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;

Dank und gruß oki

[edit] Lücken aufgefüllt [/edit]