![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
S_lip |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: B1-66ER Репутация: ![]() ![]() ![]() |
При старте программы появляется окно выбора дирректории. Если пользователь его закрывает, то и прога тоже закрывается. Вот мой пример:
Код procedure TForm1.FormCreate(Sender: TObject); var s:string; begin if not SelectDirectory('Select a folder:', '', s) then Form1.Close; end; Он не работает т.к. Form1 появляется после процедуры FormCreate, а раз его нет, то и закрывать нечего. Поэтому даже если пользователь и закроет окно выбора дирректории, прога всё равно появится. ![]() Скажите, пожалуйста, можно ли закрыться другими способами? |
![]() ![]() |
![]() |
Текстовая версия | 21.06.2025 17:46 |