100分收购！为什么win2k下编写的程序，在win98下运行这么难看？

[workboy]

为什么win2k下编写的程序，在win98下运行这么难看？特别是label botton他们的位置变化？

[workboy]

c

[foreveryday007]

分辨率的改變
系統字體的變化都有可能引起

//Form's Create(Form適應其它分辨率)
procedure SetFormCreate(Sender: TForm);
begin
with Sender do
begin
Width := FrmMain.myClientWidth;
Height := FrmMain.myClientHeight;
Top := (FrmMain.myClientHeight - Height) div 2;
Left := (FrmMain.myClientWidth - Width) div 2;

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;
end;

[CDSoftwareWj]

在做程序时，一定要先修改 Form 啦什么的控件的字体

修改成 宋体 GB2312字符集 9号或10号字

就OK了

[mrfanghansheng]

主要是字符集不相容！将窗体的font的CHARSET属性设为DEFAULT_CHARSET或者GB2312_CHARSET再重新编译就行了

[wypepsi]

如果不愿意修改的话 可以分别在不同的系统编译 然后在程序启动的时候判断操作系统的类型来选择启动的程序 反正delphi的编译速度大家都有信心三 ^_^

[hkbarton]

主要还是字体和字符集的毛病

[hkbarton]

主要还是字体和字符集的原因

[shuixin13]

个人认为应该是你的字符集的问题,


强烈同意 木鱼

[kkk2000]

主窗体FONT设置为：宋体，9号字。
其它控件的ParentFont属性默认值为：true
不要用delphi的默认设置。

[微雪缤纷]

指定字体后，问题应该不大了。

[workboy]

我实验以下，

[cow8063]

implementation

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;

下面是解决字体大小的代码:

USES typinfo; {Add this to your USES statement.}

var

i: integer;

begin

for i := componentCount - 1 downto 0 do

with components[i] do

begin

if GetPropInfo(ClassInfo, 'font') <> nil then

font.size := (NewFormWidth DIV OldFormWidth) * font.size;

end;

end;

下面的函数可以解决问题：

Form:需要调整的Form，OrgWidth：开发时屏幕的宽度，OrgHeight：开发时屏幕的高度。

注意：需要把Form的Scaled设置为True。

procedure AdjustForm(Form: TForm; const OrgWidth, OrgHeight: integer);

begin

with Form do

begin

Width := Width * Screen.Width div OrgWidth;

Height := Height * Screen.Height div OrgHeight;

ScaleBy(Screen.Width, OrgWidth);

end;

end;

　

procedure TForm1.Button1Click(Sender: TObject);

begin

AdjustForm(Self,1280,1024);

end;

[internetcsdn]

up