Tform自动居中。（简单而又有必要的）

[rockynmc]

我的程序是将含菜单及工具栏等的Tform，现在想让运行的Tform自动居中显示，涉及两个问题：
1.Tfrom的大小不定，如何与屏幕的分辩率配合使用？（一般情况800＊600）
2.Tfrom的位置应当居中，或者说是覆盖整个屏幕显示。（我记得Visual Foxpro原来都有个AutoCenter居中属性）。

在Delphi 6.0下该如何解决呢？小弟在此先谢了各位，更谢谢关注此贴的侠士们？

[imchk6]

你可以把FORM的属性 position:=poScreenCenter就可以了,在属性框就可以中设置.

[chechy]

将TForm的Position属性设为poScreenCenter

[hxshanji]

MainForm.Top:=(Screen.Height-Height) Div 2;
MainForm.Left:=(Screen.Width-Width) Div 2;

[hxshanji]

加在creat里

[rockynmc]

谢了，各位！
我的确很菜，也不知如何把分加给你们，我只有可用分。

[hxshanji]

点帖子后的管理

[rockynmc]

hxshanji(洪兴山鸡),我是这样写的，
TForm的Position属性设为poScreenCenter先起作用，去掉后，你的方法有效，但把我的窗口缩小了，变形后才居中，帮我看看，这样是否不对？为什么要 div 2，
我现在屏幕是800*600，但给我变得很小了，不会用了640*480吧？

Form1.Top:=(Screen.Height-Height) Div 2;
Form1.Left:=(Screen.Width-Width) Div 2;

[smhpnuaa]

在窗体的formresize中写：

Top:=(Screen.Height-Height) Div 2;
Left:=(Screen.Width-Width) Div 2;

或者用工作区域居中

Top:=(Screen.workareHeight-Height) Div 2;
Left:=(Screen.workareWidth-Width) Div 2;

div是整除的意思！

[smhpnuaa]

同志啊！怎么会缩小了呢？搞笑嘛!

[即插即用的传感器网]

他们都回答了怎么居中但是没有回答怎么才能够放大到最大，修改form的align属性为alClient就可以了，给分哦！！不给分以后不跟你玩了！

[rockynmc]

更惨了，用了你的修改form的align属性为alClient，然后在
procedure TmainForm.FormCreate(Sender: TObject);
begin
Top:=(Screen.WorkAreaHeight-Height) Div 2;
Left:=(Screen.WorkAreaWidth-Width) Div 2;
end;

哪效果真是叫人气死哟，我的工具栏和状态栏都缩到了自定义状态，还是得把
把FORM的属性 position:=poScreenCenter。

好，给你们加分，但我是初学Delphi，初到CSDN,以后可能麻烦你们的事可多了。

[Reaky]

form.position:=poScreenCenter
或
form.position:=poDesktopCenter

[hongyou]

呵呵，大家相互学习学习～