| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

X9 ©   (2005-02-24 12:22:00) 

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

---

Cosinus   (2005-02-24 16:32:00) [1]

> MBo ©   (24.02.05 16:04) [9]
Ясно. Спасибо.

---

MBo   (2005-02-24 16:04:00) [2]

>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.

---

Cosinus   (2005-02-24 15:32:00) [3]

> Юрий Зотов ©   (24.02.05 14:16) [7]
А можно унать почему and $FFFF?

---

Юрий Зотов   (2005-02-24 14:16:00) [4]

> X9

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

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

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

---

MBo   (2005-02-24 14:14:00) [5]

Application.OnMessage

---

X9   (2005-02-24 13:56:00) [6]

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

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

2 Юрий Зотов

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

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

---

DiamondShark   (2005-02-24 13:37:00) [7]

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

---

Юрий Зотов   (2005-02-24 13:27:00) [8]

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

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

---

XP   (2005-02-24 13:17:00) [9]

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

No comments

---

X9   (2005-02-24 13:12:00) [10]

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;
....
-----------------

---

Наверх