Пример на Delphi, как перетаскивать мышкой форму Form1 не за заголовок procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin if (ssLeft in shift) then begin ReleaseCapture; Form1.Perform(wm_syscommand,$f012,0); end; end;