Как таскать окно.

← →
_sMile (2002-10-04 11:30) [0]

Как сделать на WinAPI так, чтобы пользователь мог таскать окно за любую его точку (окно без заголовка)?

← →
Игорь Шевченко © (2002-10-04 11:31) [1]

Обрабатывать WM_NCHITTEST, возвращая HTCAPTION

← →
_sMile (2002-10-04 11:44) [2]

Не получается, можно пример?

← →
Игорь Шевченко © (2002-10-04 11:47) [3]

_sMile (04.10.02 11:44)

А можно пример того, что не получается ? :-)

← →
Termik © (2002-10-04 11:54) [4]

Зачем на WinApi ?!
Попробуй так:

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;

← →
_sMile (2002-10-04 11:55) [5]

Знаю такой способ:
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; ... procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; if M.Result = htClient then M.Result := htCaption; end;
Но прога полностью на WinAPI, как поместить аналогичный код в обработчик сообщений окна?

Если ты осознанно написал "прогe полностью на WinAPI", то вопрос с твоей стороны довольно странный

← →
_sMile (2002-10-04 12:05) [7]

2 Termik:
C O O L
Всё прекрасно работает и код небольшой! =)
/ Всё гениальное - просто./
2 all:
Всем огромное спасибо!

Как таскать окно. Найти похожие ветки