我的程序是在2000server 800*600 16位彩色的显示环境设计的，可是到了2000pro 17寸 1024*768下就完了

Question

你需要根据分辨率调整程序截面，tscreen类可以取分辨率

Answer 1

你在98下改成1024*768试试，
如果可以的话，那就是delphi的一个bug
我当时也遇到这样的问题，
最后我把程序界面重新作了一便就好了，
而且我和原来的程序对比了一下，完全一样的设置，
但保存后在打开，里面有很多界面上一样，但View as text里有许多数据被改了。
你在调试吧。
good luck

Answer 2

两种方法，你可以选择其中任何一个：
1. 将Form的属性Scaled设为false.
2. Form的属性Scaled设为true，但是属性AutoScroll设为false。

Answer 3

看看目标机器的默认字体，再按照jishiping的做法试试。不同的操作系统默认的字体是不同的。最好设为宋体/字号（如10）。

Answer 4

让窗体自适应分辨率
const
 orignwidth=800;
 orignheight=600;procedure TForm1.Formcreate(sender:tobject);
begin
  scaled:=true;
  if (screen.width<>orighwidth) then
    begin
     height:=longint(height)*longint(screen.height) div orignheight;
     width:=longint(width)*longint(screen.width) div orignwidth;
     scaledby(screen.width,orignwidth);
    end;
end;