＋设为首页 ＋添加到收藏夹
我的程序是在2000server 800*600 16位彩色的显示环境设计的，
可是到了2000pro 17寸 1024*768下就完了
所有的窗体都出现了滚动条，控件都没显示完全。
这是为什么啊？要设置窗体的什么属性。
我的程序所有的窗体的font属性里我都设置的是宋体 9 字符集是chinese-gb2312
是不是和这个有关？？/
你需要根据分辨率调整程序截面，tscreen类可以取分辨率
你在98下改成1024*768试试，
如果可以的话，那就是delphi的一个bug
我当时也遇到这样的问题，
最后我把程序界面重新作了一便就好了，
而且我和原来的程序对比了一下，完全一样的设置，
但保存后在打开，里面有很多界面上一样，但View as text里有许多数据被改了。
你在调试吧。
good luck
两种方法，你可以选择其中任何一个：
1. 将Form的属性Scaled设为false.
2. Form的属性Scaled设为true，但是属性AutoScroll设为false。
同意上面的说法，看看1024 X 768机器上面的系统字体是否大字体？建议选用楼上第一种方法。
看看目标机器的默认字体，再按照jishiping的做法试试。不同的操作系统默认的字体是不同的。最好设为宋体/字号。
让窗体自适应分辨率
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;
我也遇到过相同的情况
原来是在1024*768 的
但是用的机器是800*600的
做时候主窗体没有最大话
真的不行就在他的机器上编译了！
将窗体的属性设为none
