Transparente Form verschieben

[MCXSC]

Auch wenns alt ist Hier das "Workaround":

Delphi-Quellcode:

procedure TForm1.Image1MouseDown
   (Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer) ;
begin
   ReleaseCapture;
   SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ;
end;