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

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

← →
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 объекта, за который двигаем

---

← →
BuildeRR ©   (2003-03-30 17:25) [4]

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

---

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

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



Память: 0.46 MB
Время: 0.011 c