Перехват события восстановления (минимизации) окна
Перехват события восстановления (минимизации) окна
Перехват события восстановления (минимизации) окна 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_RESTORE) Then Inherited; End;