Текущий архив: 2003.09.04;
Скачать: CL | DM;

Вниз

Drag&Drop не цепляясь за шапку окна.   Найти похожие ветки 

← →
BuTyc   (2003-08-22 06:43) [0]

Как реализовать сабж? Может вопрос конечно и глупый, но нужно убрать шапку окна, и сделать возможным таскать окно цепляясь не за шапку а за само окно.

---

← →
Lina   (2003-08-22 06:46) [1]

Обрабатывай MouseDown:
ReleaseCapture;
SendMessage(Handle,WM_SysCommand,$F012,0);

---

← →
Rouse_ ©   (2003-08-22 06:47) [2]

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND, $F012, 0);
end;

Желаю успехов

---

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

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх

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