Как перетащить фору мо клику на Image!!!!!!!!

Воспользуйся событием OnClick у Image и обработай его...

Вот так

Код

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

2ДЫМ:
Проверил - работает. Объясни, как? :-)

Этот код на многих форумах и во многих документациях, но я пока не встречал за последние пару лет его объяснения

Bes еще бы не работал это-ж пример из DRKB
а работает это так: нажатие мышой на Image имитирует месагу которая появляется при нажатии на заголовок формы, а именно так она и таскается
ЗЫ если по эксперементриовать со значением

Код

const SC_DragMove = $F012;

то можно еще делать ресайз формы,
например если у формы BorderStlye := bsNone, а хотелось бы чтобы можно было изменять ее размеры: кинь на форму панель и в ее обработчике OnMouseMove вставть такой код:

Код

ReleaseCapture; if ssLeft in Shift then  perform (WM_SysCommand, $F007, 0); if ssRight in Shift then  perform (WM_SysCommand, $F005, 0);

понажимай левую и правую мышу на этой панели интересный результат неправда-ли?