CSDN博客

img WuChenCan

拖动窗体

发表于2004/7/9 16:20:00  564人阅读

分类:

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;

0 0

相关博文

我的热门文章

img
取 消
img