VPF::Создание формы - Форум программистов

Mew

Дата 20.2.2005, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: нет
Всего: 1

У меня в проге, около 10 форм...
Все они создаются при запуске все программы, а как сделать так чтобы они создавались, последовательно.. например при нажатия кнопку...

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

Katrina

Дата 20.2.2005, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 16.2.2005

Репутация: нет
Всего: нет

Можно в основном модуле твоей программы "program YourProject" отключить для остальных форм (кроме главной) Application.CreateForm(TForm2, Form2) и т.д., т.е. просто удалить или комментировать. Так, при запуске основной программы эти формы создаваться не будут.
Потом в основной форме, например, при нажатии на кнопку напиши:

Код


Application.CreateForm(TForm2, Form2);
Form2.ShowModal;

Это все.

<Spawn>

Дата 20.2.2005, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Я бы не стал комментировать, а просто убрал бы ненужные формы из списка автосоздаваемых в Project->Options на вкладке Forms

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Александра

Дата 20.2.2005, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 20.2.2005
Где: Москва

Репутация: 7
Всего: 12

<Spawn> верно сказал...

а создавать формы можно и так так:

Код

form2 := TForm2.Create(self);
form2.show;

а также не забудь удалять потом форму. например в обработчике OnDestroy главной формы

Это сообщение отредактировал(а) Александра - 20.2.2005, 17:10

--------------------

FRAGNATIC

Дата 20.2.2005, 17:25 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

сначал сделай как сказал <Spawn> а потом

Код


  if not Assigned(Form2) then Form2 := TForm2.Create(self);
  Form2.ShowModal; //или просто  Form2.Show (почитай про модальные и не                                  //модальные окна

Jey_k

Дата 22.2.2005, 15:30 (ссылка)

(нет голосов)

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: 1
Всего: 61

Можно в свойствах ненужных пока форм ставить visible:=false;
Добавлено @ 15:31
а вообще уже сказали лучший вариант.

--------------------

Проверка IP

user posted image

ningen

Дата 26.2.2005, 11:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

я обычно с диалоговыми формами работаю примерно так:

Код


with TForm2.Create(nil) do // не нужен ей владелец
try
  if Showmodal = mrOk then {...}; 
finally
  Free; 
end;

PS про то, что форму надо удалить из списка автосоздаваемых, уже говорили,
а ещё следует и глобальную переменную var Form2: TForm2 тоже удалить. Не нужна она.
(Брезгуешь with - создай локальную переменную)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »