Вопр по перетаскиванию окошка

← →
BuildeRR © (2003-03-28 22:24) [0]

Трям всем!
Начал писать прожку на WinAPI, без использования Tform"ов и другой белиберды.
Так вот, прабла такая: как научить программу перетаскиваться за ЛЮБУЮ точку окошка, а не только за заголовок?

← →
Diamond Cat © (2003-03-29 00:18) [1]

wm_nchittest:
result:=htcaption;
и не возвращыть его в DefWindowProc

← →
BuildeRR © (2003-03-29 13:05) [2]

мдя... спасибо, но у меня что-то не пашет... теперь окно не перетаскивается вообще... даже за заголовок...

Diamond cat, объясни плз поподробнее!
вот маленькая прога на WinAPI. куда втыкнуть wm_nchittest: result:=htcaption;?? помогите плз!!!

Program Proga;
uses
windows,
messages,
shellapi;

var
msg: tmsg;
win: hwnd;
bol: boolean;
i,b: byte;
rr : boolean;
{$R proga.RES}

Function MainForm(Window : hWnd; Msg,WParam,LParam : Integer): Integer; StdCall;
Begin
Result := 0;
Case Msg of
wm_InitDialog : Result :=0;
wm_Command : Begin
case LoWord(WParam) of

51: DestroyWindow(Win);
end;
end;
wm_Close : DestroyWindow(Win);
wm_Destroy : PostQuitMessage(0);
else Result := 0;
end;
end;

Var Result : Integer;

begin
Win := CreateDialog(hInstance,PCHar(101),0,@MainForm);
Showwindow(Win,SW_SHOW);
Updatewindow(Win);

While GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.

-----

А может кто знает как сделать. чтобы окно можно было перетаскивать за какой-нить элемент, например за битмап или за статик??

← →
Zazoo (2003-03-29 22:21) [3]

const SC_DRAGMOVE = $F012;

При клике на объект:
PostMessage(<handle>, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
где <handle> - handle объекта, за который двигаем

че-то у мя не получается.. =(
скажи куда вставить то что ты написал в код выше?

Вопр по перетаскиванию окошка Найти похожие ветки