关于窗体位置和分辨率的问题!

[loveandhate]

在800*600分辨率下,我让我的程序的所有窗体在屏幕的中央;
当我在程序运行的时候,我改变屏幕的分辨率(或者我在1021*768分辨率的情况下),
我的窗体的位置就改变了.我该怎么防止这种情况的发生?
用什么代码实现

[fancier]

可以设置窗体的Position属性为poDesktopCenter

[dh9450]

苯办法
procedure Tform1.FormActivate(Sender: TObject);
begin
form1.Left:=(SCReen.width div 2)-(form1.Width div 2);
form1.Top :=(SCReen.Height div 2)-(form1.Height div 2);
end;