Anwendungsfenster verschieben ohne Titelleiste

[turboPASCAL]

Am einfachsten geht es wohl so:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $f012;
begin
  if Shift = [ssLeft] then
  begin
    ReleaseCapture;
    Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;