скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Сообщение 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 © 2004-2018 "Delphi Sources". Delphi World FAQ


RAD Studio XE8

Комплексное решение для разработки программного обеспечения, ускоряющее проектирование, программирование и создание взаимодействующих приложений для Windows, Mac, iOS, Android и IoT. Создавайте готовые решения корпоративного класса, включая разные клиентские native-платформы, мобильные расширения, умные устройства, облачные службы, корпоративные и встроенные базы данных.



Группа ВКонтакте   Facebook   Ссылка на Twitter