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

TApplicationEvents.OnMessage работает не совсем понятно   Найти похожие ветки 

← →
Woolen ©   (2005-10-04 11:57) [0]

Не подскажете кто-нибудь, почему в 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 просто не приходит. Кто знает, в чем дело, помогите. Спасибо

---

← →
Игорь Шевченко ©   (2005-10-04 12:21) [1]

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


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

---

← →
Woolen ©   (2005-10-04 12:35) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.024 c