如:显示在屏幕的正中央。
谢谢!

解决方案 »

  1.   

    Position是Form的一个属性.
    Form.Position := poScreenCenter
      

  2.   

    //让窗体自动适应桌面大小
    procedure AutoAdaptForm(var AForm :TForm) ;
    var
      lpRect:TRect;
    begin
      SystemParametersInfo(SPI_GETWORKAREA,0,@lpRect,0);
      AForm.Left := lpRect.left;
      AForm.Top  := lpRect.Top;
      AForm.width := lpRect.right - lpRect.left;
      AForm.Height := lpRect.bottom - lpRect.Top;
      AForm.Update ;
    end;把上面的代码改改应该可以。
      

  3.   

    Form.Position := poScreenCenter
      

  4.   

    按照设置Position属性的方法可以实现,
    但当在不同的计算机上显示时可能就会出现窗体的显示不正常
     zfmich() 的方法更通用些