Перехват максимизации окна

← →
Рамиль © (2004-08-25 11:10) [0]

Вот такой код работает только для нажатия кнопки системного меню
procedure TfmView.WMSysCommand(var Message: TWMSysCommand); begin if Message.CmdType <> SC_MAXIMIZE then inherited else Message.Result := 0; end;
А при двойном шелчке по заголовку оно спокойно разварачивается. Как его перехватить?

← →
Skier © (2004-08-25 11:16) [1]

WM_NCLBUTTONDBLCLK ?

← →
Рамиль © (2004-08-25 11:25) [2]

Сенкс:)

← →
Юрий Зотов © (2004-08-25 12: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;
и не имеем никаких проблем.

Ммм.. я конечно это прочитал. Но почему то не вник в To obtain the correct result when testing :(

Перехват максимизации окна Найти похожие ветки