不同分辨率下的界面？

Question

怎么还让所做的界面在不同分辨率下都是一样的。
比如在form 中有一个panel,在800*600下占满了窗口，但是把分辩率改了以后，就占不满窗口了！

Answer 1

应该是调整form的autoscal属性吧。

Answer 2

procedure TMyClass.FormCreate(form: Tform);
var
  x, y: LongInt;
begin
form.scaled := true;  //Óдí
  x := getSystemMetrics(SM_CXSCREEN);
  y := getSystemMetrics(SM_CYSCREEN);
  if (x <> ScreenHeight) or (y <> ScreenWidth) then
    begin
       form.height:=form.height*x DIV ScreenHeight;   //&Oacute;&ETH;&acute;í
       form.width:=form.width*y DIV ScreenWidth;     //&Oacute;&ETH;&acute;í
       form.ScaleBy(x,ScreenHeight);
    end;
end;