拖动Form上的图片,Form一起动 procedure TfrmServerInfo.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);begin inherited; if (ssleft in Shift) then begin ReleaseCapture; Perform(wm_syscommand, $F012, 0); end;end;