form über Image verschieben

[tommie-lie]

Wie ist das gemeint? Daß sich dein TImage genauso verhält wie die Titelleiste der Form?
Dann musst du im OnMouseMove-Event des Images folgendes machen:

Delphi-Quellcode:

  if ssLeft in Shift then
  begin
    Form1.Left := X - Image1.Left + Form1.Left;
    Form1.Top := Y - Image1.Top + Form1.Top;
  end;