Vererbung in Delphi

[3_of_8]

IMHO eher unüblich, aber egal.

Delphi-Quellcode:

type
  TMyParentClass=class
  private
    {Nur in dieser Klasse sichtbar}
  protected
    {Nur in dieser und in abgeleiteten Klassen sichtbar}
  public
    {Immer sichtbar}
    procedure DoFoo; dynamic;
  published
    {Auch im Objektinspektor sichtbar}
  end;

  TMyChildClass=class(TMyParentClass)
  public
    procedure DoFoo; override;
  end;

So geht Ableitung/Vererbung

Delphi-Quellcode:

type
  TApplicationInfo=class
  public
    ApplicationName: String;
    StdX, StdY, StdWidth, StdHeight: Integer;
  end;