Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Событие сворачивания и закрытия окна [D2005, XP]

allucard © (2007-06-08 12:41:00)
Доброго дня.

Подскажите пожалуйста:

1. Какое событие возникает при сворачивании окна?

2. Как при посылке основной форме команды закрытия, форму не закрыть а только свернуть.

Спасибо.

allucard (2007-06-14 16:19:00) [1]
Извините что так безпардонно - но хочется продолжить:

Все ваши методы безусловно работают, но окно всё ещё можно закрыть в контекстном меню на панели задач.

Как выловить что-ли глобальное сообщение сообщение закрытия???

allucard (2007-06-09 12:09:00) [2]
Всем спасибо.
Работает.

> clickmaker © (08.06.07 14:55) [11]

Тебе отдельное:)

novill (2007-06-08 15:02:00) [3]
Отвечая на
> 2. Как при посылке основной форме команды закрытия, форму
> не закрыть а только свернуть.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=false; Application.Minimize; end;

clickmaker (2007-06-08 14:55:00) [4]
эх, зря я что-ли сюда кусок вцл запостил, 3 минуты рабочего времени потерял? :)

оттуда же видно, что при caNone VCL ничего делать не будет. Потому пишем так:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

allucard (2007-06-08 14:28:00) [5]
как выловить сообщение окну wm_close?

там другая константа не WM_SYSCOMMAND;

allucard (2007-06-08 14:25:00) [6]
Форму всё ещё можно закрыть выбрав закрыть в контекстном меню на панели задач пункт закрыть

webpauk (2007-06-08 13:53:00) [7]
private
procedure WMSYS(var Msg: Tmessage); Message WM_SYSCOMMAND;

procedure Tform1.WMSYS(var Msg: Tmessage);
begin
if Msg.Wparam=sc_close then Sendmessage(Handle, WM_SYSCOMMAND, sc_minimize, 0)
else inherited;
end;

allucard (2007-06-08 13:17:00) [8]

> clickmaker © (08.06.07 13:07) [5]

опа, и как быть?

allucard (2007-06-08 13:10:00) [9]

> Сергей М. © (08.06.07 12:50) [3]

> В обработчике OnClose основной формы написать
> Action := caMinimize;

В BDS2006 Закрывает приложение.

Как выловить событие сворачивания окна?

clickmaker (2007-06-08 13:07:00) [10]
в исходниках vcl можно много чего интересного найти

procedure TCustomForm.Close;

if CloseAction <> caNone then
if Application.MainForm = Self then Application.Terminate
else if CloseAction = caHide then Hide
else if CloseAction = caMinimize then WindowState := wsMinimized
else Release;

novill (2007-06-08 12:58:00) [11]
> Action := caMinimize;

На D6 это не сработало. Приложение закрылось.
(проверял на новом проекта с одной пустой формой)

Сергей М. (2007-06-08 12:50:00) [12]
Поправка:

В обработчике OnClose основной формы написать
Action := caMinimize;

Сергей М. (2007-06-08 12:49:00) [13]

> 1. Какое событие возникает при сворачивании окна?
>

TApplication.OnMessage

> 2. Как при посылке основной форме команды закрытия, форму
> не закрыть а только свернуть

В обработчике OnCloseQuery основной формы написать
Action := caHide;

clickmaker (2007-06-08 12:48:00) [14]
API или VCL?

для второго - OnClose - Action := caMinimize

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »