我发现在拖动窗体的时候，会出现一个框，等放开鼠标后，窗体才移动到那个框的位置，怎样才能保证窗体和拖动同步

我发现在拖动窗体的时候，会出现一个框，等放开鼠标后，窗体才移动到那个框的位置，怎样才能保证窗体和拖动同步

解决方案 »

  1.   

    这好象和Windows系统的设置有关系吧。
    桌面--》属性--》效果--》拖动时显示窗口内容当然，也可以通过代码来设置和读取：
    var
    bDragFullWin: boolean;
    // 获取当前的系统设置,保存在bDragFullWin中
    SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 1, bDragFullWin, 0);// 设置，重点是第二个参数:
    SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, NULL, 0);
      

  2.   

    抱歉，用C用习惯了，要把NULL替换成nil。
      

  3.   

    SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 1, @bDragFullWin, 0);
      

  4.   

    可以写在FormCreate中，最好是设置前先读取系统的配置，程序结束时再还原该配置。
      

  5.   

    不行，报错，说identifier没有定义，不知道该怎么定义这个变量
      

  6.   

    SPI_GETDRAGFULLWINDOWS := $0026
    SPI_SETDRAGFULLWINDOWS := $0025