| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перехват максимизации окна
Рамиль © (2004-08-25 11:10:00)Вот такой код работает только для нажатия кнопки системного меню
procedure TfmView.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType <> SC_MAXIMIZE then inherited
else Message.Result := 0;
end;
А при двойном шелчке по заголовку оно спокойно разварачивается. Как его перехватить?
Skier (2004-08-25 12:48:00) [1]>Рамиль © (25.08.04 12:44) [4]
посмотри как обрабатывается WM_SysCommand в VCL
Рамиль (2004-08-25 12:44:00) [2]Ммм.. я конечно это прочитал. Но почему то не вник в To obtain the correct result when testing:(
Юрий Зотов (2004-08-25 12:00:00) [3]К вопросу о пользе чтения справки - читаем ПОЛНОСТЬЮ и ВНИМАТЕЛЬНО справку по WM_SYSCOMMAND и видим следующее:
"In WM_SYSCOMMAND messages, the four low-order bits of the uCmdType parameter are used internally by Windows. To obtain the correct result when testing the value of uCmdType, an application must combine the value 0xFFF0 with the uCmdType value by using the bitwise AND operator".
Теперь используем эту информацию в своей программе:
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType and $FFF0<> SC_MAXIMIZE then
inherited
else
Message.Result := 0
end;
и не имеем никаких проблем.
Рамиль (2004-08-25 11:25:00) [4]Сенкс:)
Skier (2004-08-25 11:16:00) [5]WM_NCLBUTTONDBLCLK ?
| |
