ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вопрос по созданию формы
12 сообщений из 12, страница 1 из 1
Вопрос по созданию формы
    #32117589
Lexus_000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexus_000
Гость
В коде проги прописал при нажатии на кнопку создание формы (Application.CreateForm...)
При повторном нажатии вылезает сообщение об ошибке (в смысле, форма уже создана).
Так вот, а каким образом проверить в процессе выполнения проги, создана уже форма или нет?
Буду очень благодарен за помощь.
...
Рейтинг: 0 / 0
11.03.2003, 16:41
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117597
Aleksei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksei
Участник
А если попробывать отлавливать данную ошибку т.е.

try
Application.CreateForm;
except
ShowMessage('Форма уже создана');
end;
...
Рейтинг: 0 / 0
11.03.2003, 16:46
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117600
_Александр_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Александр_
Участник
Уничтожать ее после закрытия.
...
Рейтинг: 0 / 0
11.03.2003, 16:47
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117628
_Александр_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Александр_
Участник
А лучше приведите фрагмент кода, как вы ее создаете.
Там нужно условие вставить на проверку. Но для этого нужно имя формы.
...
Рейтинг: 0 / 0
11.03.2003, 17:04
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117669
Павлов Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Павлов Игорь
Гость
В событии OnClose формы пропиши следующее

Пример:
_________________

при нажатии на кнопку вызова формы

Form2 := TForm2.Create(Application);
Form2.ShowModal;
...
Рейтинг: 0 / 0
11.03.2003, 17:26
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117676
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Чего-то странного понаписали

Код: plaintext
1.
2.
3.
4.
При создании: if MyForm <> nil then MyForm := TMyForm.Create(Application); //и т.д.

На OnClose формы:
MyForm := nil;
Action := caFree;
...
Рейтинг: 0 / 0
11.03.2003, 17:28
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117713
_Александр_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Александр_
Участник
Это все правильно, но как следует из вопроса, форма может еще и не открыта,
а только создана. Или несколько форм. OnClose тогда не получится.
...
Рейтинг: 0 / 0
11.03.2003, 17:56
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117733
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Что не получится? Зачем при открытии OnClose? :)
...
Рейтинг: 0 / 0
11.03.2003, 18:12
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117936
_Александр_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Александр_
Участник
tygra

Ну что тут непонятного? Нажал человек на кнопку - форма создалась (может
открылась а может и нет), нажал второй раз... Когда же сработает OnCLose,
ведь форму никто не закрывал.
...
Рейтинг: 0 / 0
12.03.2003, 09:11
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117938
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Александр, внимательно посмотри на код Тигры:
if MyForm <> nil then MyForm := TMyForm.Create(Application)

Форма второй раз НЕ СОЗДАСТСЯ!
...
Рейтинг: 0 / 0
12.03.2003, 09:13
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117956
_Александр_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Александр_
Участник
Каюсь, не заметил.

Можно еще так

if not Assigned (MyForm) then MyForm := TMyForm.Create(Application);

Но это одно и тоже.
...
Рейтинг: 0 / 0
12.03.2003, 09:31
| Ответить | Цитировать | Написать  
Вопрос по созданию формы
    #32117988
Фотография distinger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
distinger
Участник
Наверно и так получиться

if not assigned(MyForm) then MyForm:=TMyForm.Create...
...
Рейтинг: 0 / 0
12.03.2003, 10:01
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вопрос по созданию формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]