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?