如何让窗口显示在电脑屏幕中间

按照delphi程序默认设计出的程序预览的时候自动显示在桌面的左上方，或者就是设计时窗口的位置，这样显示很乱，视觉感觉不好，如何让自动显示到中间呢？

1，程序position默认属性是poDefaultPosOnly.

 

2，默认效果如下：

 

实现居中显示效果方法如下：

第一种：通过属性设置：

1，选中需要设置的窗体，在属性里面找到 position, 下拉选择poScreenCenter,保存。

2.也可以选择poDesktopCenter.

3.设置居中后效果如下！

 

 

两者区别：

 

poDesktopCenter 是除去任务栏后的居中
poScreenCenter 是整个屏幕的居中

 

网友建议：

 

窗体的静态属性中有一个Window的Position吧。其中有一个Desktop Center和Screen Center。建议使用后者。这样能够保持窗体始终在屏幕的中间位置，而不取决于桌面的位置。

 

参考网友回答：http://bbs.csdn.net/wap/topics/70111919

第二种：通过代码实现：

如：

Form1.Position:=poDesktopCenter;

Form1.Position:=poScreenCenter;

参考答案来源：http://bbs.csdn.net/topics/90517539