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

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

Пример:
_________________

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

Form2 := TForm2.Create(Application);
Form2.ShowModal;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2003, 17:28
    #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:56
    #32117713
_Александр_
_Александр_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
Это все правильно, но как следует из вопроса, форма может еще и не открыта,
а только создана. Или несколько форм. OnClose тогда не получится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2003, 18:12
    #32117733
tygra
tygra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
Что не получится? Зачем при открытии OnClose? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2003, 09:11
    #32117936
_Александр_
_Александр_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по созданию формы
tygra

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

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

Можно еще так

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

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

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


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