Скачать: CL | DM;

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

← →
Рамиль ©   (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;

и не имеем никаких проблем.

---

← →
Рамиль ©   (2004-08-25 12:44) [4]

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

---

← →
Skier ©   (2004-08-25 12:48) [5]

>Рамиль ©   (25.08.04 12:44) [4]
посмотри как обрабатывается WM_SysCommand в VCL

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c