Создание новой формы с компанентами

← →
vajo (2003-04-30 09:13) [0]

Подскажите, как сделать. Необходимо чтобы при нажатии на кнопку создавалась новая форма с набором компанентов.

← →
Calm © (2003-04-30 09:16) [1]

Нужно испрозовать репозиторий форм. См. команду Add To Repository и т.д.

← →
jack128 © (2003-04-30 09:18) [2]

А эта форма с компонентами в дизин тайм уже описана?
Если да, то

procedure TForm1.Button1Click(Sender: TObject);
var form2 : Tform2;
begin
form2 := Tform2.Create(nil);
...// Делаешь с формой, что те нужно
form2.Free;//уничтожаешь форму
end;

← →
Calm © (2003-04-30 09:19) [3]

> Нужно испрозовать репозиторий форм. См. команду Add To Repository
> и т.д.

Уф-ф... Абсолютно не в тему высказался...

Создаешь в дизайн-тайм форму, но в опциях проекта из auto-create forms ее убираешь. В обработчике клика по кнопке пишешь MyForm := TMyForm.Create(Application); или как в исходнике проекта Application.CreateForm(TMyForm, MyForm); с предварительной проверкой if not Assigned(MyForm) then

Создание новой формы с компанентами Найти похожие ветки