Перехват нажатия на системные кнопки формы (закрытие , минимизация окна и т.д.)

Сообщение WM_SYSCOMMAND приходит перед выполнением соответствующей команды,

Например, перехват события минимизации окна приложения:

Code:

Type TMain = class(TForm)

....

protected

Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;

end;

.....

//----------------------------------------------------------------

// Обработка сообщения WM_SYSCOMMAND (перехват минимизации окна)

//----------------------------------------------------------------

Procedure TMain.WMGetSysCommand(var Message : TMessage) ;

Begin

IF (Message..wParam = SC_MINIMIZE)

Then Main.Visible:=False

Else Inherited;

End;