Перехват нажатия на системные кнопки формы (закрытие , минимизация окна и т.д.)
Falk0ner, вс, 06/07/2008 - 15:34.
Сообщение 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;
....
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;
Взято с сайта http://blackman.wp-club.net/
Отправить комментарий