parameter dem create des form übergeben

[khh]

hallo zusammen,
gibt es ne Möglichkeit, der proc:
procedure TForm1.FormCreate(Sender: TObject);

einen Parameter mitzugeben, ohne die klasse Tform zu überschreiben?
so nach dem Muster:
procedure TForm1.FormCreate(Sender: TObject; paramenter:string);

danke gruss KH

[mashutu]

Zitat:

Zitat von khh

hallo zusammen,
gibt es ne Möglichkeit, der proc:
procedure TForm1.FormCreate(Sender: TObject);

einen Parameter mitzugeben, ohne die klasse Tform zu überschreiben?
so nach dem Muster:
procedure TForm1.FormCreate(Sender: TObject; paramenter:string);

danke gruss KH

Klar geht das:

Delphi-Quellcode:

type
     myForm    = class(TForm)
         ...
     public

        constructor create(aOwner : tComponent;parm:string); virtual;
    end;

...
    constructor myForm.create(AOwner:TComponent,parm:string);
    begin
       inherited create(AOwner);
       // do anything with parm...
    end;

[khh]

Zitat:

Zitat von mashutu

Zitat:

Zitat von khh

hallo zusammen,
gibt es ne Möglichkeit, der proc:
procedure TForm1.FormCreate(Sender: TObject);

einen Parameter mitzugeben, ohne die klasse Tform zu überschreiben?
so nach dem Muster:
procedure TForm1.FormCreate(Sender: TObject; paramenter:string);

danke gruss KH

Klar geht das:

Delphi-Quellcode:

type
     myForm    = class(TForm)
         ...
     public

        constructor create(aOwner : tComponent;parm:string); virtual;
    end;

...
    constructor myForm.create(AOwner:TComponent,parm:string);
    begin
       inherited create(AOwner);
       // do anything with parm...
    end;

danke dir,
wusste doch dass das irgendwie gehen muss ;-)

Gruss KH

[mashutu]

Und nach "TComponent" muss latuernich ein Semikolon stehen... :-(

[uligerhardt]

Zitat:

Zitat von khh

Zitat:

Zitat von mashutu

Klar geht das:

Delphi-Quellcode:

type
     myForm    = class(TForm)
         ...
     public
        constructor create(aOwner : tComponent;parm:string); virtual;
    end;

IIRC müsste das eine Compilermeldung liefern. Darum hinten ein "reintroduce" dran. Und das "virtual" brauchst du vermutlich nicht.