处理不同分辨率下界面显示的一个简单方法(1分)

最近我在用delphi做毕业设计,遇到了不同分辨率下界面显示的问题.
在这里查阅了所有有关这一问题的帖子，并按照大家提供的方法试了一下，
可是效果不是很理想。
正在烦恼的时候，突然想到了比例显示的方法，当然，这一方法处理
复杂的界面可能会比较麻烦。

方法如下：
Fomr1的WindowState属性选择wsMaximized，以便主窗口初始状态为最
大化。
然后加入以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
控件.width:=trunc(screen.width*你希望的百分比);
控件.height:=trunc(screen.height*你希望的百分比)；
控件.left:=trunc(creen.width*你希望的百分比);
控件.top:=trunc(screen.height*你希望的百分比)；
end;

这样一来，在不同的分辨率下，显示的效果就可以是预期的了。

什么叫“查阅了所有有关这一问题的帖子，并按照大家提供的方法试了一下，
可是效果不是很理想。”？是你不会检索而已。

以前明明就有很多人提出这个方法，可能没写出代码而已。
我以前的回答是类似于“自己计算，控制位置”，你说和你的方法算不算一样？

接受