Перетаскивание формы без бордюров

[dr.Chas]

Всем добрый вечер, нашёл бы в поиске (как обычно делаю), но не могу правильно сформулировать вопрос. По этому и такое кривое название темы (за что извиняюсь).

Имеется форма со свойством borderStyle:=bsNone.
На ней image с фоном. Как сделать чтобы в любом месте формы (подрузамиваю, что там image на всю форму растянут) можно было нажать клавишой мыши и двигать формой так же как и если бы там был заголовок формы.
Тут пример:

[BOBAH13]

Вариант 1.
a) Ставим хук (локальный) на сообщения вашего приложения. А именно WH_MOUSE
b) Ловим соответствующие WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MOUSEMOVE.
c) разумеется, при нажатии перевести в координаты для экрана (ClientToScreen) координаты (POINT) нажатия и движения мыши.
d) При нажатии, ставить свою переменную (к примеру boolean = true) т.е. идентифицировать нажатие
e) после нажатия вызывать SetCapture (т.е. ставим капчу на мышь)
f) на WM_MOUSEMOVE проверяем нашу boolean переменную, если true, то высчитываем просто (X = current_x - down_x (относительно окна, а не экрана)) вроде так, ну для Y аналогично (если может и ошибся, сами додумаете)
g) по WM_LBUTTONUP вызываем ReleaseCapture (освобождаем капчу мыши)

Ну как то так

p.s. а еще внизу страницы список похожих тем, стоило бы заглянуть туда сначала

[dr.Chas]

Спс, попробую.

Сообщение от BOBAH13

p.s. а еще внизу страницы список похожих тем, стоило бы заглянуть туда сначала

Ну как бы не первый год на форуме, а вот список похожих тем появляется после того как создаёшь тему. Так что сначала я не могу туда заглянуть в любому случае

Сообщение от dr.Chas

Ну вроде бы не первый год на форуме, а вот список похожих тем появляется после того как создаёшь тему. Так что сначала я не могу туда заглянуть в любом случае

А это пока по поиску не погуляешь всласть

[FaTaL]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.Perform(WM_SysCommand,$F012,0); //где Form1 имя Вашей формы
end;

[maxionans]

В обработчике OnMouseDown вашего Image пишете такой код:

  ReleaseCapture;
  SendMessage( Self.Handle, WM_SYSCOMMAND, $F012, ( X shl 16 ) or Y );

UPDATE:
Прошу модератора удалить это сообщение.

From Stilet: Не обязательно его удалять. Это не дубль а дополнительный вариант.