Delphi World - Перехват нажатия на системные кнопки формы (закрытие, минимизация окна и т.д.)
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Перехват нажатия на системные кнопки формы (закрытие, минимизация окна и т.д.)

Сообщение 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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования