为什么编译后的程序在win2000下的字体显示正常，而在win98下字体却变得又小又不清楚。

Question

我在win2000下开发了的一个管理系统，在2000下显示都正常，而在win98下原来能看清楚
的字，却变得又小又不清楚,我改了很多字体都不行。各位遇到过类似的问题吗？

Answer 1

form1.scaled:=false;
并设字体为宋体9号字看看.

Answer 2

form1.scaled:=false;
font设为CHINESE_2312GB,默认大小
还有以下方法：
假设你在800*600的分辨率下设计的form,第一步：
inplementation
const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  scaled := true;
  if (screen.width <> ScreenWidth) then
  begin
    height := longint(height) * longint(screen.height) div ScreenHeight;
    width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
  end;
end;下一步，要让每个子控制的字体改变到合适的大小：
type
  TFooClass = class(TControl); { needed to get at protected }
                               { font property }var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
        (NewFormWidth div OldFormWidth) *
        TFooClass(Controls[i]).Font.Size;
end;

Answer 3

在form中把字体设为宋体，然后编码设为GB2312，应该就可以了。

Answer 4

我原来也遇到过这个问题，把编码设为GB2312就ok了

Answer 5

你用了一种在win98系统里没有字体了.

Answer 6

在属性设置器里面将控件的字体设置为宋体即可，一般只需要把窗体的字体设置一下。因为DELPHI程序的默认字体是MS Sans Serif。Adayuer([±0℃])的字体变大的情况可能是你的win98的显示属性里的外观字体被你设置大了！

Answer 7

2000/XP系统与98 的默认字体大小不同所致，这是OS的问题，
使用10号字，会好些