Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Перехват нажатия на системные кнопки формы (закрытие , минимизация окна и т.д.)

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

Сообщение WM_SYSCOMMAND приходит перед выполнением соответствующей команды, что дает возможность переопределить код.
Описание :

WM_SYSCOMMAND 

uCmdType = wParam;        // type of system command requested 
xPos = LOWORD(lParam);    // horizontal postion, in screen coordinates 
yPos = HIWORD(lParam);    // vertical postion, in screen coordinates 

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

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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru