使用Delphi重新调整表单

Author: 望月 Date: 2001年 36期

?牐牬蠹抑溃颐窃谏杓仆车氖焙颍３；岱⑾衷谄聊坏南允痉直媛矢闹螅杓坪玫谋淼サ牟季志兔婺咳橇恕Ｄ敲矗颐怯忻挥邪旆ㄈ帽淼ニ孀欧直媛实谋浠远浠兀吭谡饫铮颐强梢越柚鶧elphi来设计一个程序达到自动调整的目的。设计时，我们可以使用Interface部分定义屏幕的宽度和高度两个参数，然后通过程序来判断当前分辨率是否与设计分辨率相同，最后利用SCALE来达到重新调整表单布局的目的，下面是程序的主要源代码：
　　?牐燙onst
　　?牐燬creenwidth=1024；
　　?牐燬creenwidth=758； //定义屏幕的原始分辨率
　　?牐爌rocedure TForm1．FormCreate（Sender：TObject）；
　　?牐燽egin
　　?牐爏caled：=true；//判断当前分辨率是否与设计分辨率相同
　　?牐爄f（screen．width＜＞Screenwidth）then
　　?牐燽egin //重新调整表单布局
　　?牐爃eight：=longint（height）*longint（screen．height）div Screenwidth??
　　?牐爓idth：=longint（width）*longint（screen．width） div Screenwidth；
　　?牐爏caleby（screen．width，Screenwidth）；
　　?牐爀nd；
　　?牐爀nd；
　　