borderloses formular verschieben ?

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE + 1,0);
  end;
end;

musste halt auf die form beziehen.