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

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

← →
_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, как поместить аналогичный код в обработчик сообщений окна?

---

← →
MBo ©   (2002-10-04 12:01) [6]

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

---

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

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

---

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

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



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