Создание форм из процедуры

[DIMASIKXXX32]

Сообщение от Прик

Ну, хотя бы так:

function TForm1.FCreate(FClass: TFormClass; FTitle: string) : TForm;
begin
  Result := FClass.Create(nil);
  Result.Caption := FTitle;
  Result.Show;
  Enabled := False; //Сделаем не доступной форму Form1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2(FCreate(TForm2, 'Forma2'));
end;

TForm2 и TForm3 и TForm - это разные классы и они требуют приведения типов, а в процедуре этого не происходило и Form2, к примеру, все равно ни на что не указывало (nil). При обращении выходило AV.

А как сделать через процедуру? и как сделать это приведение

[Прик]

Возвращаемое функцией значение приводится к нужному классу. Т.е. задача решена.
И зачем здесь процедура?

[DIMASIKXXX32]

Прик Спасибо!!!

Да задача решена! Работает так как должно!

просто интересно через процедуру как это возможно

например моей которую писал, что надо добавить?

procedure TForm1.FCreate(FName: TForm; FClass: TFormClass; FTitle: string);
  begin
    FName := FClass.Create(nil);
    FName.Caption := FTitle;
    FName.Show;
    //ShowMessage(FName.ClassName);
    Enabled  :=  False; //Сделаем не доступной форму Form1
  end;

[Прик]

Да, ничего там не добавишь.
Из-за разных типов классов, между тем, который передается в параметрах и, тем который нужно получить после создания формы.

[DIMASIKXXX32]

Сообщение от Прик

Да, ничего там не добавишь.
Из-за разных типов классов, между тем, который передается в параметрах и, тем который нужно получить после создания формы.

Огромное тебе спасибо!!!