Окошко на winapi

← →
maker © (2002-11-29 21:00) [0]

Мне необходимо перетаскивать окошко на winapi за его любую область...

Кусок кода:
function WindowProc (Window: HWND; Message, WParam: Cardinal; LParam: Cardinal): Longint; stdcall; begin case Message of WM_MOUSEMOVE: begin //Если я правильно думаю, то... //MoveWindow(где добыть параметры)... //Но шо-то у мя нифига не получается... :( end; ...

← →
apay © (2002-11-29 22:44) [1]

просто обмани винду и все:
...
case Message of
...
WM_NCHITTEST: begin
Result := HTCAPTION;
Exit;
end;
...
end;
...

← →
Evgeny © (2002-11-30 07:39) [2]

Обманывать не надо - это вполне стандартная функция.

var
aRect: TRect;
pt : TPoint;
...
WM_NCHITTEST:
begin
Result := htClient;
pt.x := LoWord(lParam);
pt.y := HiWord(lParam);
ScreenToClient(Wnd, pt);
aRect := {твой Rect};
if PtInRect(aRect, pt) then // Если мышь там где предпологалось, то тащим окно
Result := htCaption;
Exit;
end;
...

← →
maker © (2002-11-30 09:56) [3]

всё работает, спасибо!...

Окошко на winapi Найти похожие ветки