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;