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

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

TApplicationEvents.OnMessage работает не совсем понятно [D7, WinXP]

Woolen ©   (2005-10-04 11:57:00) 

Не подскажете кто-нибудь, почему в TApplicationEvents.OnMessage может не появляться сообщение WM_SIZE. Код выглядит так:
procedure TIAPCIKWnd.AppEventsMessage(var Msg: tagMSG;
 var Handled: Boolean);
var
 Reg: TRegistry;
begin
if Msg.hwnd = Handle then
 if Msg.message = WM_SIZE then
   if Visible then
     case Msg.wParam of
     SIZE_RESTORED: begin
                    Reg := GetReadyToWriteWndParam;
                    WriteWndParmToReg(Reg,wwpWindowState,Cardinal(wsNormal));
                    CloseAfterWriteWndParam(Reg);
                    end;
     SIZE_MAXIMIZED: begin
                     Reg := GetReadyToWriteWndParam;
                     WriteWndParmToReg(Reg,wwpWindowState,Cardinal(wsMaximized));
                     CloseAfterWriteWndParam(Reg);
                     end;
     end;
end;
Но условие
if Msg.message = WM_SIZE then
никогда не выполняется. Такое ощущение, что ни одного WM_SIZE просто не приходит. Кто знает, в чем дело, помогите. Спасибо

---

Woolen   (2005-10-04 12:35:00) [1]

Ясно, спасибо

---

Игорь Шевченко   (2005-10-04 12:21:00) [2]

> Не подскажете кто-нибудь, почему в TApplicationEvents.OnMessage
> может не появляться сообщение WM_SIZE


потому что оно посылается не через PostMessage, а через SendMessage

---

Наверх