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

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

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

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

BuildeRR © (2003-03-28 22:24:00)
Трям всем!
Начал писать прожку на WinAPI, без использования Tform"ов и другой белиберды.
Так вот, прабла такая: как научить программу перетаскиваться за ЛЮБУЮ точку окошка, а не только за заголовок?

BuildeRR (2003-03-30 17:25:00) [1]
че-то у мя не получается.. =(
скажи куда вставить то что ты написал в код выше?

Zazoo (2003-03-29 22:21:00) [2]
const SC_DRAGMOVE = $F012;

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

BuildeRR (2003-03-29 13:05:00) [3]
мдя... спасибо, но у меня что-то не пашет... теперь окно не перетаскивается вообще... даже за заголовок...

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.

-----

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

Diamond Cat (2003-03-29 00:18:00) [4]
wm_nchittest:
result:=htcaption;
и не возвращыть его в DefWindowProc

Наверх

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