<!DOCTYPE html>
<html>
<head>
<title></title>
</head>
<body><div>Now I get a kind message from Székely Balázs that show a temporary way.<br></div>
<div> </div>
<blockquote><div><div><div><div>Hi Ara,<br></div>
</div>
<div>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:<br></div>
<div> </div>
<div>uses windows;<br></div>
<div>var<br></div>
<div> PrevWndProc: WNDPROC;<br></div>
<div> </div>
<div>function WndCallback(AHWND: HWND; uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;<br></div>
<div>begin<br></div>
<div> case uMsg of<br></div>
<div> WM_ENTERSIZEMOVE:<br></div>
<div> begin<br></div>
<div> //...<br></div>
<div> Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam);<br></div>
<div> end;<br></div>
<div> WM_EXITSIZEMOVE:<br></div>
<div> begin<br></div>
<div> //...<br></div>
<div> Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam);<br></div>
<div> end;<br></div>
<div> else<br></div>
<div> Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam);<br></div>
<div> end;<br></div>
<div>end;<br></div>
<div> </div>
<div>procedure TForm1.FormCreate(Sender: TObject);<br></div>
<div>begin<br></div>
<div> PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Self.Handle, GWL_WNDPROC, PtrInt(@WndCallback)));<br></div>
<div>end; <br></div>
<div> </div>
</div>
<div>regards,<br></div>
</div>
<div><span class="highlight" style="background-color: rgb(255, 255, 255)"><span class="colour" style="color:rgb(31, 31, 31)">Balázs</span></span><br></div>
</blockquote><div> </div>
<div> </div>
<div>Regards,<br></div>
<div>Ara<br></div>
<div> </div>
<div> </div>
<pre>
--
http://www.fastmail.com - Access your email from home and the web
</pre>
</body>
</html>