| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отследыть событие "сворачивание окна" в TrayBar у формы? [D6]
diwww © (2005-10-19 17:24:00)Должно быть что-то то вроде Form1.OnMinimize
diwww (2005-10-19 17:54:00) [1]работает, большое спасибо
WondeRu (2005-10-19 17:34:00) [2]еще есть Application.OnMinimize если не ошибаюсь
WondeRu (2005-10-19 17:28:00) [3]Перехват нажатия на системные кнопки формы (закрытие, минимизация окна и т.д.)
--------------------------------------------------------------------------------
Сообщение 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;
(с) DelphiWorld
| |
