📄 006.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--用户界面-->DELPHI中自适应表单的实现</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--用户界面 DELPHI中自适应表单的实现">
<META NAME="description" CONTENT=" - DELPHI专题--用户界面 - DELPHI中自适应表单的实现">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index1.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">DELPHI中自适应表单的实现</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
----我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分<br>
辨率是800*600，而最终要分发应用的机器分辨率为640*480，或1024*768，这样你<br>
原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应<br>
不同的分辨率，下面就有两种方法可供你参考。<br>
<br>
----一、根据新的分辨率自动重画表单及控件<br>
<br>
----先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高<br>
度（以像素为单位）。在表单的Create事件中先判断当前分辨率是否与设计分<br>
辨率相同，如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度<br>
和高度。<br>
<br>
Const<br>
Orignwidth=800;<br>
Orignheight=600;<br>
<br>
procedure TForm1.FormCreate(Sender:TObject);<br>
begin<br>
scaled:=true;<br>
if (screen.width<>orignwidth) then<br>
begin<br>
height:=longint(height)*longint<br>
(screen.height)divorignheight;<br>
width:=longint(width)*longint<br>
(screen.width)divorignwidth;<br>
scaleby(screen.width,orignwidth);<br>
end;<br>
end;<br>
----SCALE过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，<br>
以适应新的分辨率，但美中不足的是它并不改变控件的顶点坐标位置，也<br>
就是说，该过程不改变控件之间的相对位置关系。要想调整控件之间的选<br>
队相对位置，还需要自己编程实现，有兴趣的读者可试一试。<br>
<br>
<br>
----二、将机器分辨率更改为设计时的分辨率<br>
<br>
----这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到<br>
的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings，前<br>
者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见<br>
DELPHI帮助。设计时宽度常量和高度常量的定义如方法一。<br>
<br>
procedure TForm1.FormCreate(Sender:TObject);<br>
var<br>
devmode:tDevicemode;<br>
begin<br>
if screen.width<>orignwidth then<br>
begin<br>
if EnumDisplaySettings(nil,0,devmode) then<br>
begin<br>
devmode.dmfields:=dm_pelswidth OR dm_pelsheight;<br>
devmode.dmpelswidth:=orignwidth; {宽度}<br>
devmode.dmpelsheight:=orignheight;{高度}<br>
ChangeDisplaySettings(devmode,0);{更改设置}<br>
end;<br>
end;<br>
end;<br>
----以上两种方法在WINDOWS95+DELPHI3.0环境下均已通过，二者相比，前者是主动适应，后者则是被动适应。</p>
<hr color="#EE9B73" size="1" width="94%">
</TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -