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