DELPHI中自适应表单地实现.docxVIP

DELPHI中自适应表单地实现 DELPHI中自适应表单地实现 DELPHI中自适应表单地实现 合用标准文案 石家庄军火工程学院五系王俊 我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分 辨率是 800*600，而最后要发散应用的机器分辨率为 640*480，或 1024*768，这样你 本来设计的表单在新机器上必然会走样。这时你必然希望表单能自己适应不相同的分辨率，下面就有两种方法可供你参照。 一、依照新的分辨率自动重画表单及控件 先在表单单元的 Interface 局部定义两个常量，表示设计时的屏幕的宽度和 高 度〔以像素为单位〕。在表单的 Create 事件中先判断当前分辨率可否与设计分辨率相同，若是不相同，调用表单的 SCALE过程重新能调整表单中控件的宽度和高度。 Const Orignwidth=800; Orignheight=600; procedure TForm1.FormCreate(Sender:TObject); begin scaled:=true; if (screen.widthorignwidth) 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帮助。设计时宽度常量和高度常量的定义如方法一。 优秀文档 合用标准文案 procedure TForm1.FormCreate(Sender:TObject); var devmode:tDevicemode; begin if screen.widthorignwidth then begin if EnumDisplaySettings(nil,0,devmode) then begin devmode.dmfields:=dm_pelswidth OR dm_pelsheight; devmode.dmpelswidth:=orignwidth; { 宽度} devmode.dmpelsheight:=orignheight;{ 高度 } ChangeDisplaySettings(devmode,0);{ 更正设置 } end; end; end; 以上两种方法在 WINDOWS95+DELPHI3环.0境下均已经过， 二者对照，前者是主动适应，后者那么是被动适应。 优秀文档