mauskoordinaten unabhaenging von form ermitteln!

[Aenogym]

achso, sag das doch gleich

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0);
end;

dadurch verschiebt sich das form, als wenn du es durch verschieben per titelleiste machst.

Aenogym