Запретить закрытие модального окна

@Jamplane · Регистрация: 13.09.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Суть вопроса такова:
Вызывается форма (методом ShowModal). На форме есть 3 поля для ввода и кнопка, допустим, "But1" со свойством ModalResult равным mrOk. Мне необходимо сделать так, чтобы в определённых ситуациях (когда в поля для ввода занесены некорректные данные) при нажатии на But1 не происходило закрытие окна с возвращение mrOk, а выдавалось сообщение об ошибке (в MessageBox, например).

Есть ли что-нибудь такое, вроде AllowClose? И как вызвать в обрабобтчике кнопки?

@northener · 23.10.2014, 17:26

OnCloseQuery

@FIL · 23.10.2014, 17:31

Да и OnClose никто не отменял.

@Jamplane · 23.10.2014, 17:47 **[ТС]**

FIL, а как с OnClose?

@FIL · 23.10.2014, 17:49

У него есть папаметр: Action.
Например, пишем:

Delphi
1
  Action := caNone;

и окно не будет реагировать на закрытие.

@Костяныч · 12.02.2015, 09:41

FIL, а если необходимо, чтобы ничего не могло закрыть окно, кроме определенной кнопки?
Т.е. я напишу в метод OnClose Action := caNone;
А как при этом закрыть окно на кнопку?

@FIL · 12.02.2015, 10:23

Сообщение от Костяныч

А как при этом закрыть окно на кнопку?

Delphi
1
  Release;

Добавлено через 1 минуту
Если форма главная, то:

Delphi
1
  Application.Terminate;

@Костяныч · 12.02.2015, 10:25

FIL, Release, закрывает окно, но при этом главное окно застывает и не реагирует. Мне необходимо запретить какое-либо закрытие форму извне. Только на кнопку 'Cancel' или крестик.

@MadRabbyt · 12.02.2015, 10:33

Костяныч, определись, как окно закрывать надо - по кнопке, по системной кнопке(на крест справа-сверху, если есть), по системному меню (слева-сверху по иконке окна, опять же, если есть), по хоткею (Alt+W/Esc/Alt+F4/etc.) и укажи в обработчике OnClose, где caNone, а где caFree в зависимости от Sender.

А вообще в свойствах формы, особенно модальной, можно настроить её вид и поведение, поигравшись в свойствах BorderStyle, BorderIcons и FormStyle.

@Костяныч · 12.02.2015, 11:03

MadRabbyt, просто у меня есть исходник. При выполнении алгоритма форма закрывается. Дебагером не могу отследить закрытие, много строк лопатить. Где вызов закрытия происходит я не знаю. По этому хочу запретить все вызовы закрытия, кроме кнопки и системной кнопки.

Добавлено через 25 минут
Все нашел.

@MadRabbyt · 12.02.2015, 12:11

Сообщение от Костяныч

Все нашел.

Ну, как говорится "Результаты в студию."

@Костяныч · 12.02.2015, 12:13

MadRabbyt, прошелся дебагером, наткнулся на такую строчку

Delphi
1
ModalResult := mrOk;

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

@FIL · 12.02.2015, 12:56

Сообщение от Костяныч

Release, закрывает окно, но при этом главное окно застывает и не реагирует.

Если окно модальное, то перед закрытием надо ModalResult задать:

Delphi
1
2
3
4
5
procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
  Release;
end;

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Jamplane 4 / 4 / 1 Регистрация: 13.09.2013 Сообщений: 154

	Запретить закрытие модального окна 23.10.2014, 17:19. Показов 4650. Ответов 12 Метки нет (Все метки) Здравствуйте! Суть вопроса такова: Вызывается форма (методом ShowModal). На форме есть 3 поля для ввода и кнопка, допустим, "But1" со свойством ModalResult равным mrOk. Мне необходимо сделать так, чтобы в определённых ситуациях (когда в поля для ввода занесены некорректные данные) при нажатии на But1 не происходило закрытие окна с возвращение mrOk, а выдавалось сообщение об ошибке (в MessageBox, например). Есть ли что-нибудь такое, вроде AllowClose? И как вызвать в обрабобтчике кнопки? 0

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,608
	23.10.2014, 17:26
	OnCloseQuery 1

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	23.10.2014, 17:31
	Да и OnClose никто не отменял. 1

@Jamplane 4 / 4 / 1 Регистрация: 13.09.2013 Сообщений: 154
	23.10.2014, 17:47 [ТС]
	FIL, а как с OnClose? 0

@Костяныч 20 / 20 / 4 Регистрация: 31.10.2010 Сообщений: 1,240 Записей в блоге: 2
	12.02.2015, 09:41
	FIL, а если необходимо, чтобы ничего не могло закрыть окно, кроме определенной кнопки? Т.е. я напишу в метод OnClose Action := caNone; А как при этом закрыть окно на кнопку? 0

@Костяныч 20 / 20 / 4 Регистрация: 31.10.2010 Сообщений: 1,240 Записей в блоге: 2
	12.02.2015, 10:25
	FIL, Release, закрывает окно, но при этом главное окно застывает и не реагирует. Мне необходимо запретить какое-либо закрытие форму извне. Только на кнопку 'Cancel' или крестик. 0

@MadRabbyt 17 / 17 / 5 Регистрация: 04.01.2014 Сообщений: 43
	12.02.2015, 10:33
	Костяныч, определись, как окно закрывать надо - по кнопке, по системной кнопке(на крест справа-сверху, если есть), по системному меню (слева-сверху по иконке окна, опять же, если есть), по хоткею (Alt+W/Esc/Alt+F4/etc.) и укажи в обработчике OnClose, где caNone, а где caFree в зависимости от Sender. А вообще в свойствах формы, особенно модальной, можно настроить её вид и поведение, поигравшись в свойствах BorderStyle, BorderIcons и FormStyle. 0

@Костяныч 20 / 20 / 4 Регистрация: 31.10.2010 Сообщений: 1,240 Записей в блоге: 2
	12.02.2015, 11:03
	MadRabbyt, просто у меня есть исходник. При выполнении алгоритма форма закрывается. Дебагером не могу отследить закрытие, много строк лопатить. Где вызов закрытия происходит я не знаю. По этому хочу запретить все вызовы закрытия, кроме кнопки и системной кнопки. Добавлено через 25 минут Все нашел. 0