Перехват закрытия окна - Общие вопросы Delphi

GAGARIN-NEW · 11.11.2007, 11:13

Уважаемые програмисты !
Разъясните мне пожалуйсто как перехватить закрытие окна(моего окна)
и вместо завершения приложения сделать нужные мне действия...
поиск ничего не дал а в интернете нашол 15 одних и тех-же примеров (притом не работают!)
Желательно примерчик

ВСЕМ СПАСИБА !

AlDelta · 11.11.2007, 11:54

Событие OnClose даёт возможность предотвратить закрытие формы. Обработчик OnClose имеет параметр Action с такими значениями:

caNone - форме не разрешено закрыться.
caHide - вместо закрытия, форма будет скрыта.
caFree - форма будет закрыта, и занятые ей ресурсы будут освобождены.
caMinimize - весто закрытия, форма будет минимизирована.

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
{Дальше идут нужные тебе действия}
end;

Более подробно: F1 на TCloseAction в Делфи.

GAGARIN-NEW · 11.11.2007, 12:20

На счёт OnClose так вот если я выполню какието деёствия без приведённого тобой кода то приложение их выполнит а потом всёравно завершится . Ну да ладно ! Спасибо ! попробуем твой способ =)

Rik · 11.11.2007, 12:30

Смотри OnCloseQuery

11.11.2007, 11:13	#1
GAGARIN-NEW Познаю мир Форумчанин Подтвердите свой е-майл Регистрация: 05.10.2007 Сообщений: 387	Перехват закрытия окна Уважаемые програмисты ! Разъясните мне пожалуйсто как перехватить закрытие окна(моего окна) и вместо завершения приложения сделать нужные мне действия... поиск ничего не дал а в интернете нашол 15 одних и тех-же примеров (притом не работают!) Желательно примерчик ВСЕМ СПАСИБА ! ---

11.11.2007, 11:54	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	OnClose Событие OnClose даёт возможность предотвратить закрытие формы. Обработчик OnClose имеет параметр Action с такими значениями: caNone - форме не разрешено закрыться. caHide - вместо закрытия, форма будет скрыта. caFree - форма будет закрыта, и занятые ей ресурсы будут освобождены. caMinimize - весто закрытия, форма будет минимизирована. Код: `procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caNone; {Дальше идут нужные тебе действия} end;` Более подробно: F1 на TCloseAction в Делфи. Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

11.11.2007, 12:20	#3
GAGARIN-NEW Познаю мир Форумчанин Подтвердите свой е-майл Регистрация: 05.10.2007 Сообщений: 387	На счёт OnClose так вот если я выполню какието деёствия без приведённого тобой кода то приложение их выполнит а потом всёравно завершится . Ну да ладно ! Спасибо ! попробуем твой способ =) ---

11.11.2007, 12:30	#4
Rik Форумчанин Регистрация: 28.07.2007 Сообщений: 361	Смотри OnCloseQuery http://www.visual-t.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Обработка события закрытия окна в С#	Kriziun	Общие вопросы .NET	2	14.04.2008 14:06
закрыть все дочерни окна, кроме главного окна	Worms	Общие вопросы Delphi	2	03.12.2007 22:18
TWebBrowser-как перехватить команду скрипта для закрытия окна и не дать ему закрыться	Вовик	Компоненты Delphi	5	03.10.2007 12:17
Как сделать чтобы дочерние окна в MDI-приложениях были вне главного окна???	dimonchuk	Общие вопросы Delphi	1	11.08.2007 12:13
Перехват и подмена кодов клавиш чужого окна	Hedgehog	Безопасность, Шифрование	3	23.04.2007 16:05