[Lazarus] WMEnterSizeMove Messages not firing

[Aradeonas]

Now I get a kind message from Székely Balázs that show a temporary way.

> Hi Ara, I saw your conversation with Ondrej about catching the
> WMEnterSizeMove and WMExitSizeMove message. I did respond on the
> mailing list, unfortunately my mails still get filtered out(this was
> also confirmed by Juha). Anyway here is a possible solution. Feel free
> to post in the mailing list if you like:
>
> uses windows; var  PrevWndProc: WNDPROC;
>
> function WndCallback(AHWND: HWND; uMsg: UINT; wParam: WParam; lParam:
> LParam): LRESULT; stdcall; begin  case uMsg of    WM_ENTERSIZEMOVE:
> begin      //...      Result := CallWindowProc(PrevWndProc, Ahwnd,
> uMsg, WParam, LParam);    end;    WM_EXITSIZEMOVE:    begin      //...
> Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam);
> end;    else      Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg,
> WParam, LParam);  end; end;
>
> procedure TForm1.FormCreate(Sender: TObject); begin  PrevWndProc :=
> Windows.WNDPROC(SetWindowLongPtr(Self.Handle, GWL_WNDPROC,
> PtrInt(@WndCallback))); end;
>
> regards, Balázs


Regards, Ara


-- 
http://www.fastmail.com - Access your email from home and the web

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20151010/04c5caf9/attachment-0003.html>