Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

запрет перетаскивания окна [D7, WinXP]

BFG9k © (2007-09-03 18:44:00)
Есть компонент стороннего разработчика (нет возможности изменить исходники). Одно окно в нем некорректно перерисовывается при перетаскивании. Можно ли как-то запретить перетаскивание окна, имею его handle ?

Dib@zol (2007-09-03 19:47:00) [1]
Ок.

var
WPH : Pointer;

...

function NewWndProc(hWnd: HWND; Msg: LongInt; wParam, lParam: Longint): longInt; stdcall;
begin
Result:=CallWindowProc(WPH, hWnd, Msg, wParam, lParam);
if (Msg = WM_NCHITTEST)and(Result = HTCAPTION) then Result:=HTCLIENT;
end;

...

LongInt(WPH):=SetWindowLong(Компонент.Handle, GWL_WNDPROC, LongInt(@NewWndProc));

BFG9k (2007-09-03 19:37:00) [2]
Dib@zol © (03.09.07 18:54) [1]
Повесь на него собственную оконную процедуру ...

Простите за нескромный вопрос. А как это сделать ?

P.S.: Пробовал обрабатывать WM_NCHITTEST с помощью компонента ApplicationEvents.OnMessage. Не получилось. Проблема в том, что видимо окно не связано с Application. Это не форма и даже не VCL компонент. Хотелось бы поподробнее насчет оконной процедуры.

Dib@zol (2007-09-03 19:18:00) [3]
Удалено модератором

DVM (2007-09-03 19:08:00) [4]

> Dib@zol © (03.09.07 18:54) [1]

совсем необязательно, что перетаскивание реализовано путем обработки WM_NCHITTEST.

Dib@zol (2007-09-03 18:54:00) [5]
Повесь на него собственную оконную процедуру и обрабатывай WM_NCHITTEST. Сперва - bydefault'ным обработчиком (сиречь CallWindowProc), а потом лови возвращённый результат, и если он HTCAPTION, то меняй его на HTCLIENT.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »