Single Post - Как получить от листера WM_EXITSIZEMOVE?

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Как получить от листера WM_EXITSIZEMOVE?

Author

Message

Dec

Posted: Thu Feb 26, 2009 18:57 Post subject: Re: Как получить от листера WM_EXITSIZEMOVE ?

Worros wrote:

Или любой другой способ вытащить итоговые координаты, полученные по окончании ресайза окошка листера.

Попробуйте так:

Code:

...
FOldWndProc := SetWindowLong(ListerWindow, GWL_WNDPROC, integer(@NewWindowProc));
...
function NewWindowProc(AWindow: HWND; AMsg: UINT; AWParam: WPARAM; ALParam: LPARAM): LRESULT; stdcall;
var R: TRect;
begin
FOldWndProc(AWindow, AMsg, AWParam, ALParam);
if AMsg = WM_EXITSIZEMOVE then
begin
GetWindowRect(AWindow, R);
end;
end;