Как в одном проекте создать две формы?

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
yantux
постоялец
Сообщения: 133
Зарегистрирован: 29.10.2007 15:02:33
Откуда: Санкт-Петербург
Контактная информация:

Как в одном проекте создать две формы?

Сообщение yantux »

Как в одном проекте создать две формы?

Допустим при запуске автоматически создаётся первая форма. Как сделать чтобы в процессе работы программы создавались/уничтожались новые формы?
Mr.Smart
долгожитель
Сообщения: 1796
Зарегистрирован: 29.03.2008 00:01:11
Откуда: из леса!

Сообщение Mr.Smart »

Два варианта:
1. Создавать их во время загрузки

Код: Выделить всё

...
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
...

а после по событию показывать

Код: Выделить всё

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
...

2. Создавать динамически

Код: Выделить всё

var
 Form2: TForm2;
begin
  Form2:=TForm2.Create(Application)
  Form2.Show;
end;
....
Ответить