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
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
