拖動窗體

procedure TLeadForm.ImgTitleMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  {=================拖動窗體====================================}

  ReleaseCapture;
  SystemParametersInfo(SPI_SETDRAGFULLWINDOWS,1,nil,SPIF_UPDATEINIFILE);
  Perform(WM_SysCommand,$F012,0);
  SystemParametersInfo(SPI_SETDRAGFULLWINDOWS,0,nil,SPIF_UPDATEINIFILE);

  {===============================================================}
end;