IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Закрытие программы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: B1-66ER

Репутация: -  1  +


При старте программы появляется окно выбора дирректории. Если пользователь его закрывает, то и прога тоже закрывается. Вот мой пример:

Код
procedure TForm1.FormCreate(Sender: TObject);
var
  s:string;
begin
  if not SelectDirectory('Select a folder:', '', s) then Form1.Close;
end;


Он не работает т.к. Form1 появляется после процедуры FormCreate, а раз его нет, то и закрывать нечего. Поэтому даже если пользователь и закроет окно выбора дирректории, прога всё равно появится. sad.gif

Скажите, пожалуйста, можно ли закрыться другими способами?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Да, но у тебя есть Application, который тоже можно закрыть:
procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
if not SelectDirectory('Select a folder:', '', s) then Application.Terminate;
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: B1-66ER

Репутация: -  1  +


Спасибо, volvo! Помогло =).
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.11.2017 16:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"