[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);

?

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

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

[NumLock]

Код:

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(TickCount: Integer); reintroduce; overload;
    constructor Create(AOwner: TComponent; TickCount: Integer); reintroduce; overload;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

constructor TForm2.Create(TickCount: Integer);
begin
  inherited Create(Application);
  Caption:=IntToStr(TickCount);
end;

constructor TForm2.Create(AOwner: TComponent; TickCount: Integer);
begin
  inherited Create(AOwner);
  Caption:=IntToStr(TickCount);
end;

использование:

Код:

  if not Assigned(Form2) then Form2:=TForm2.Create(GetTickCount);
  Form2.Show;

либо:

Код:

  if not Assigned(Form2) then Form2:=TForm2.Create(Self, GetTickCount);
  Form2.Show;

см. в справке reintroduce и overload (в случае 2-х конструкторов)

[Mrak]

спасибо!
вот посмотрел и почему-то все сразу понял