Перетаскивание окна(формы)

← →
Bers01 (2004-01-20 16:30) [0]

Добрый вечер УВАЖАЕМЫЕ МАСТЕРА!
Может поделится кто опытом, а еще лучше примерчиком:
Нужно чтобы окно(форма) перетаскивалось не только за заголовок, а за любую область(внутри окна), на которой его схватили.
Пробовал через MoveWindow(...) на onMouseMove, но при перемещении изображение сильно дергается. Подскажите кто знает.

С Уважением, Андрей.

← →
easy © (2004-01-20 17:08) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture(); SendMessage(form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); end;

← →
Bers01 (2004-01-20 17:28) [2]

Спасибо!

← →
Diamond Cat © (2004-01-20 21:48) [3]

2 easy ©
А не проще result от wm_ncbuttondown ставить в htcaption

← →
Prov © (2004-01-22 08:11) [4]

Я делал так:
обработать WM_NCHITTEST ??? +HT_CAPTION(точно не помню)

← →
Thick (2004-01-22 12:23) [5]

В MouseDown вставляеш SendMessage(wnd,WM_SYSCOMMAND, $F012, 0);

> HT_CAPTION(точно не помню)

Msg.Result:=htCaption

← →
LukSerg (2004-01-22 18:39) [7]

procedure Form1.Image1MouseDown(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;

← →
LukSerg (2004-01-22 18:39) [8]

Перетаскивание окна(формы) Найти похожие ветки