parameter dem create des form übergeben

[mashutu]

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;