Помощь - Поиск - Пользователи - Календарь
Полная версия: Закрытие программы
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
S_lip
При старте программы появляется окно выбора дирректории. Если пользователь его закрывает, то и прога тоже закрывается. Вот мой пример:

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


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

Скажите, пожалуйста, можно ли закрыться другими способами?
volvo
Да, но у тебя есть Application, который тоже можно закрыть:
procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
if not SelectDirectory('Select a folder:', '', s) then Application.Terminate;
end;
S_lip
Спасибо, volvo! Помогло =).
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.