[Mrak]

всем привет

при создании второй формы, из первой передаются параметры
в первой форме при вызове

Код:

if (not Assigned(form2)) then form2:=Tform2.Create(1);
form2.show;

во второй

Код:

type
  TForm2 = class(TForm)
    ....
  private
    { Private declarations }
    r: shortint;
  public
    { Public declarations }
    constructor create(rezhim: shortint);
  end;

implementation

{$R *.dfm}

uses Unit1;

constructor TForm2.create(rezhim: shortint);
begin
  inherited create(nil);
  r:=rezhim;
end;

все работает, но предупреждение
Method 'Create' hides virtual method of base type 'TCustomForm'

подскажите, пожалуйста, все ли я делаю верно?
и куда девается родной Self при создании?
и почему

Код:

inherited create(nil);

?

код стянул с какого-то форума, сейчас пытаюсь осмыслить че к чему
в гугле искал, нифига не понял

разжуйте и разложите по полочкам, будьте добры?