create bei von tform abgeleiteten klassen

[Marco Steinebach]

Hallo ihr alle,
ich möchte den constructor für eine von TForm abgeleitete Klasse um, beispielsweise einen Formulartitel, erweitern.

Code:

class TForm1 = Class TForm);
...
constructor create (AOwner: TComponent; titel: string);

Wenn ichdas so mache, verbirgt das Create das ursprüngliche.
okay, verstanden;
mit

Code:

constructor create (AOwner: TComponent; titel: string); override;

geht's auch nicht, weil sich die deklarationen unterscheiden.
Aber wie geht es richtig? ;-)

aufruf soll sein:
Form1 := TForm1.Create (self, 'Testformular');

Vielen dank und viele Grüße
Marco

[mkinzler]

Delphi-Quellcode:

constructor Create (AOwner: TComponent; titel: string);
begin
    inherited Create ( AOwner);
    Caption := title;
...

[Marco Steinebach]

Hallo,

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

constructor Create (AOwner: TComponent; titel: string);
begin
    inherited Create ( AOwner);
    Caption := title;
...

Jep! genauso sieht mein Constructor aus.
Aber wie wird er oben in der typdefinition deklariert?
Oder kann ich die compilerwarnung "die methode verdeckt die ..." einfach ignorieren?

Vielen Dank und viele Grüße
Marco

[mkinzler]

Zitat:

Aber wie wird er oben in der typdefinition deklariert?

Genauso.

Zitat:

Oder kann ich die compilerwarnung "die methode verdeckt die ..." einfach ignorieren?

Deklariere den "normalen" Constructor noch zusätzlich.