Трабла со сворачиванием

← →
X9 © (2005-02-24 12:22) [0]

Hello2All!
Столкнулся с такой проблемой: если выбрать из системного меню окна программы пункт "_ Свернуть" и нажать его или шёлкнуть по кнопке окна "_" то не ловится сообщение SC_MINIMIZE. Как можно его поймать? Заранее благодарен.

← →
X9 © (2005-02-24 13:12) [1]

Sorry, не ловится только при сворачивании из меню иконки программы на панели задач. При нажатии на кнопку "_" в заголовке окна или системном меню формы всё работает (ловится). Лювлю так:

-----------------
....
private // Секция private формы
procedure SomeProc(var Msg: TWMSysCommand); message WM_SYSCOMMNAD;
....
procedure TMyForm.SomeProc(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
begin
....
end else
inherited;
end;
....
-----------------

← →
XP (2005-02-24 13:17) [2]

Правильно ловите.
А SomeProc лучше назвать WMSysCommand :)

No comments

← →
Юрий Зотов © (2005-02-24 13:27) [3]

if Msg.CmdType and $FFF0 = SC_MINIMIZE then ...

И все поймается.

← →
DiamondShark © (2005-02-24 13:37) [4]

Не поймается.
Потому что на панели задач кнопка не формы, а того левого окна, что в Application создаётся.

← →
X9 © (2005-02-24 13:56) [5]

2 XP
>> А SomeProc лучше назвать WMSysCommand :)

IMHO не обязательно, хотя, так получится логичней.

2 Юрий Зотов

И вправду не ловится.

Дык что же делать?

← →
MBo © (2005-02-24 14:14) [6]

Application.OnMessage

← →
Юрий Зотов © (2005-02-24 14:16) [7]

> X9

Невнимательно прочитал [1]. Сорри.

> Дык что же делать?

Ловить в Application.OnMinimize или Application.OnMessage.
А and $FFF0 все-таки используйте. Оно нужно.

>Cosinus © (24.02.05 15:32) [8]
Потому что так в хелпе написано:

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.

Трабла со сворачиванием Найти похожие ветки