关于窗体的分辨率的问题？进者有分！

Question

Form在不同的分辨率下大小不同；
比如在1024*768情况下看着比较舒服的窗体到800*600可能撑的很大；
变的很难看；横向纵向的滚动条看起来也比较难看；
不知道大家都怎么处理的？
怎么样做出适合于各种分辨率的窗体，都看着好看一些！

Answer 1

好想听说过有这类控制的控件
叫什么“PerfectSize”什么的！有几种，不过没研究过！
:)
大侠要是搞定了！·
别忘了教教在下！
:)
分好说

Answer 2

const 
  orignwidth = 800;
  orignheight = 600;form oncreate
begin
  scaled := true;
  if (screen.width <> orignwidth) then
  begin
   height := longint(height)*longint(screen.height) div orignheight;
   width := longint(width)*longint(screen.width) div orignwidth;
   scaledby(screen.width,orignwidth);
  end;
end;

Answer 3

是不是应该这样？
const 
  orignwidth = 800;
  orignheight = 600;form oncreate
begin
  scaled := true;
  if (screen.width <> orignwidth) then
  begin
   height := longint(height)*longint(screen.height) div orignheight;
   width := longint(width)*longint(screen.width) div orignwidth;
   scaledby(height,width);
  end;
end;

Answer 4

将 机 器 分 辨 率 更 改 为 设 计 时 的 分 辨 率 
procedure TForm1.FormCreate(Sender: TObject); 
var 
devmode:tDevicemode; 
begin 
if screen.width<>orignwidth then 
   begin 
   if EnumDisplaySettings(nil,0,devmode) then 
begin 
devmode.dmfields:=dm_pelswidth OR dm_pelsheight ; 
devmode.dmpelswidth:=orignwidth;   {宽度} 
devmode.dmpelsheight:=orignheight;{高度} 
ChangeDisplaySettings(devmode,0); {更改设置} 
end; 
end; 
end;