Properties bei Ableitung verschieben

[Getox]

Ich schreibe einfach einen neuen Post, damit das neue Anliegen nicht übersehen wird, weil es nur ein Edit gewesen wäre:

Ich habe jetzt ein Edit, dass ich von TCustomEdit abgeleitet habe. Dieses soll einfach erstmal nur 2 winzige Änderungen haben und daran scheitert es schon:
- Höhe von 24
- Ctl3D auf False

Ich habe schon vieles Versucht und es hat einfach nie Auswirkungen.

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Height default 24;
    property Ctl3D default False;
  end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Height stored True default 24;
    property Ctl3D stored True default False;
  end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent);
  published
    { Published-Deklarationen }
    property Height default 24;
    property Ctl3D default False;
  end;

constructor TTextEdit.create(AOwner: TComponent);
begin
  inherited;
  Height := 24;
  Ctl3D := False;
end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent);
  published
    { Published-Deklarationen }
    property Height stored True default 24;
    property Ctl3D stored True default False;
  end;

constructor TTextEdit.create(AOwner: TComponent);
begin
  inherited;
  Height := 24;
  Ctl3D := False;
end;

Wo liegt mein Fehler oder was übersehe ich?

[Fritzew]

Der constructor ist virtuell. Du musst Ihn mit override deklarieren.

Eigentlich gibt Dir der Compiler dazu eine Warnung aus:

W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TCustomEdit'

Delphi-Quellcode:

 public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent); override;

[Getox]

Zitat von Fritzew:

Der constructor ist virtuell. Du musst Ihn mit override deklarieren.

Eigentlich gibt Dir der Compiler dazu eine Warnung aus:

W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TCustomEdit'

Delphi-Quellcode:

 public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent); override;

Das hat tatsächlich geklappt. Ctl3D ist nun ausgeschaltet. Die Höhe ist auch nicht mehr 22 sondern 23. Aber ich habe 24 eingestellt. Das ist seltsam. Auch wenn ich das auf 25 setze ist es im Endeffekt auf 23, als sei da eine maximale Höhe gesetzt...

Edit: Klappt jetzt. Danke erstmal