100分跪求：为什么,我在win2003下1024X768分辨率下编的程序,拿到98下面就显示不正常?

Question

显示不正常为:
1、字体显示不正常；
2、在98下面显示不了其中的一个按钮~~

Answer 1

关键在于字体，你要把form的字体设为宋体，一般用9号吧

Answer 2

在设计时把程序的字体设为：宋体,9号  字符集（Charset)为：GB2312_CHARSET
试试看。  

Answer 3

wardwind：
  怎么设置？？

Answer 4

字体都设置为宋体
Charset为GB2312_CHARSET
利用ScaleBy改变分辨率

Answer 5

用ScaleBy把分辨率改为800*600还是不行啊~

Answer 6

宋体,9号  字符集（Charset)为：GB2312_CHARSET

Answer 7

我也遇到这个问题过，
在设计时，将字体设为宋体 9号 GB2312_CHARSET，
在放到win98运行时，先将win98的分辨率改为1024*768,
就行了

Answer 8

用PerfectSizeVCL组件，不好用，换成800*600的话，字体显示就不行了~~字体我已调成宋体,9号  字符集（Charset)为：GB2312_CHARSET了

Answer 9

这个问题我以前遇到过，其实解决的很简单，把字体的设置按照楼上各位所说的设置，然后将所有的FORM里的scaled属性设置为FALSE，编译后再去98下就正常了

Answer 10

还有字体最好设置为宋体9号字，这样在98和2000下都是很漂亮的，字符集（Charset)为：GB2312_CHARSET了

Answer 11

gxgyj(杰克.逊)说得有理，我试过，可行

Answer 12

字体没变啊，我在800*600下看，字还是那么大~~~~我用了ThemeEngine控件的~~~
我在程序中加了如下代码，怎么还是不行~~~~加了下面的代码，就不会有控件在800*600下看不到的情况，但字体的问题还没解决~~~implementation
const
   Orignwidth=1024;
   Orignheight=768;procedure TForm1.FormCreate(Sender: TObject);
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;
  scaleby(screen.width,orignwidth);
end;
end;

Answer 13

一、根据新的分辨率自动重画表单及控件　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为 单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。Const
Orignwidth=800；
Orignheight=600；procedureTForm1.FormCreate(Sender：TObject)；
begin
scaled：=true；
if(screen.width<>orignwidth)then
begin
height：=longint(height)*longint
(screen.height)divorignheight；
width：=longint(width)*longint
(screen.width)divorignwidth；
scaleby(screen.width,orignwidth)；
end；
end；
 　　SCALE过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，以适应新的分辨率， 但美中不足的是它并不改变控件的顶点坐标位置，也就是说，该过程不改变控件之间的相对 位置关系。要想调整控件之间的选队相对位置，还需要自己编程实现，有兴趣的读者可试一 试。

Answer 14

二、将机器分辨率更改为设计时的分辨率　　这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings，前者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见DELPHI帮助。设计时宽度常量 和高度常量的定义如方法一。procedureTForm1.FormCreate(Sender：TObject)；
var
devmode：tDevicemode；
begin
ifscreen.width<>orignwidththen
begin
ifEnumDisplaySettings(nil,0,devmode)then
begin
devmode.dmfields：=dm_pelswidthORdm_pelsheight；
devmode.dmpelswidth：=orignwidth；{宽度}
devmode.dmpelsheight：=orignheight；{高度}
ChangeDisplaySettings(devmode,0)；{更改设置}
end；
end；
end； 

Answer 15

上面说了一千次了, 就是字体问题2000 以上都是 DEFAULT_CHARSET, 设了字体字号也没用设成 GB2312_CHARSET一个一个控件去设

Answer 16

1、 在fromshow事件里写如下代码：
ScaleBy(Round(Screen.Width * 100 / Const_DefaultWidth),100);
2、 把字体设置为宋体，字体大小自己斟酌