请教真正的桌面居中问题。 ( 积分: 100 )

M

mosane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #1

请问如何让主窗体处在桌面的最中间，poDesktopCenter其实是屏幕中间而并不是桌面中间，设置position=PoDesktopCenter的效果跟poScreenCenter一样。

定死大小的界面，大小是800*570，在800*600分辨率的屏幕里窗体遮住任务栏，而上面却还有足够空档，很不方便也不雅观。

除了（屏幕高-任务栏高-窗体高）/2还有其它方法吗？

 

M

mosane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #2

请问如何让主窗体处在桌面的最中间，poDesktopCenter其实是屏幕中间而并不是桌面中间，设置position=PoDesktopCenter的效果跟poScreenCenter一样。

定死大小的界面，大小是800*570，在800*600分辨率的屏幕里窗体遮住任务栏，而上面却还有足够空档，很不方便也不雅观。

除了（屏幕高-任务栏高-窗体高）/2还有其它方法吗？

 

G

gboyjuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #3

Self.BoundsRect:= Screen.WorkAreaRect;

 

G

gboyjuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #4

不好意思，题目没看清楚
应该是这样的：
Self.Left:= (Screen.WorkAreaWidth-Self.Width) div 2;
Self.Top:= (Screen.WorkAreaHeight-Self.Height) div 2;

 

M

mosane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #5

非常谢谢，我的问题想问除了这个方法的方法有吗？

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #6

应该是
Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;
吧？
其实做法都是大同小异的，除非你觉得这个有问题～

 

M

mosane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #7

不，我要的是 gboyjuan 那样的效果。