盒子论坛 v2.1

程序运行时可用Screen.Width,Screen.Height等属性获取屏幕分辨率，具体应用请查看TScreen的帮助；
至于字体，你不能使用默认的MS的那种破字体！你可多试试几种字体。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

jsnjsmc (鱼)	★☆☆☆☆	-
	盒子活跃会员

2004/2/26 13:16:12

3楼：

自适应屏幕
----我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分
辨率是800*600，而最终要分发应用的机器分辨率为640*480，或1024*768，这样你
原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应
不同的分辨率，下面就有两种方法可供你参考。

----一、根据新的分辨率自动重画表单及控件

----先在表单单元的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过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，
以适应新的分辨率，但美中不足的是它并不改变控件的顶点坐标位置，也
就是说，该过程不改变控件之间的相对位置关系。要想调整控件之间的选
队相对位置，还需要自己编程实现，有兴趣的读者可试一试。

----二、将机器分辨率更改为设计时的分辨率

----这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到
的分辨率相同。它需要用到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;

----------------------------------------------
-

作者：

898898 (898898)	★☆☆☆☆	-
	普通会员

2004/2/26 17:12:29

4楼：

谢谢各位高手指点。小弟略明白以上道理。以后一定加倍努力。
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/26 17:25:56

5楼：

:)
----------------------------------------------

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/2/26 18:15:12

6楼：

use the property

from.scale

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/2/26 18:18:27

7楼：

如果是字体变化问题
请使用系统默认的小5号宋体

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

信息

登陆以后才能回复