Wann ein "inherited" im Constructor ?

[Hawkeye219]

Eigentlich wollte ich diese Aussage widerlegen:

Zitat von Muetze1:

Afair ist ohne einen virtuellen Constructor auch kein Zwang da, inherited auf zu rufen.

Ein Beispiel:

Delphi-Quellcode:

type
  TMyPen = class (TPen)
  public
    constructor Create;
  end;

constructor TMyPen.Create;
begin
  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pen : TMyPen;
begin
  Pen := TMyPen.Create;
  Pen.Color := clRed;  // ohne INHERITED in TMyPen.Create knallt es hier...
  Pen.Free;
end;

Zu deiner TGraphic-Frage:

Zitat von Graphics.pas von Delphi 6:

Delphi-Quellcode:

constructor TGraphic.Create;
begin                 // This stub is required for C++ compatibility.
  inherited Create;   // C++ doesn't support abstract virtual constructors.
end;

Gruß Hawkeye