Скачать: CL | DM;

Окошко на 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]

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

---

← →
apay ©   (2002-11-30 17:43) [4]

> Evgeny ©
говоришь обманывать не надо:
Result := htCaption; - и есть обман.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c