Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Закрытие формы при создании, Close или Free 
V
    Опции темы
Keeper89
Дата 6.5.2009, 02:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Доброго времени суток!

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

Код

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  try
    ...
  except
    Close; // Не работает
  end;
end;

Приведенный код не работает, и форма все-таки отображается. Как заставить ее закрыться в данном случае?

Заранее спасибо.

Это сообщение отредактировал(а) Keeper89 - 6.5.2009, 02:32


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Coder
Дата 6.5.2009, 03:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 11
Я бы не трогал ее в Create, а поставил бы там флажок на закрытие при Show.
PM MAIL   Вверх
Riply
Дата 6.5.2009, 06:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32
Цитата(Keeper89 @  6.5.2009,  02:31 Найти цитируемый пост)
При создании формы считываю данные из файла (форма показывается модально). При этом, если произошла ошибка (например, нет файлов или неверный формат), форма должна закрыться.


Считывать до создания ?


--------------------
Решение задач под заказ
PM MAIL   Вверх
MetalFan
Дата 6.5.2009, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
abort в FormCreate. снаружи ловить исключение.
но вариант Riply логичнее.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
kami
Дата 6.5.2009, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72
Раз форма показывается модально, ModalResult=mrCancel разве не "прокатит" ?
PM MAIL WWW   Вверх
Keeper89
Дата 6.5.2009, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(MetalFan @  6.5.2009,  08:30 Найти цитируемый пост)
abort в FormCreate. снаружи ловить исключение.
но вариант Riply логичнее. 

Форма создается первой, поэтому заранее не получится.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Snowy
Дата 6.5.2009, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(Keeper89 @  6.5.2009,  13:08 Найти цитируемый пост)
Форма создается первой, поэтому заранее не получится.
Почему не получится? Что мешает?
Просто не запускай Application
Код

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  if Form1.LoadMyData then
    Application.Run;
PM MAIL   Вверх
Keeper89
Дата 6.5.2009, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Всем спасибо за обсуждение!
В форму проверки ввел функцию класса для проверки данных, и дальнейшего запуска главной формы. Работает как нужно.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.3276 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.