DELPHI中自适应窗体的实现方法

这篇文章主要介绍“DELPHI中自适应窗体的实现方法”，在日常操作中，相信很多人在DELPHI中自适应窗体的实现方法问题上存在疑惑，小编查阅了各式资料，整理出简单好用的操作方法，希望对大家解答”DELPHI中自适应窗体的实现方法”的疑惑有所帮助！接下来，请跟着小编一起来学习吧！

为五华等地区用户提供了全套网页设计制作服务，及五华网站建设行业解决方案。主营业务为网站设计制作、网站设计、五华网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

前言

我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是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)*longin(screen.height) div orignheight；
    width：=longint(width)*longint(screen.width) div orignwidth；
    scaleby(screen.width,orignwidth)；
  end；
end；

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

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

这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings，前者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见DELPHI帮助。设计时宽度常量 和高度常量的定义如方法一。

procedureTForm1.FormCreate(Sender：TObject)；
var
  devmode：tDevicemode；
begin
  if screen.width<>orignwidth then
  begin
    if EnumDisplaySettings(nil,0,devmode) then
    begin
      devmode.dmfields：=dm_pelswidthORdm_pelsheight；
      devmode.dmpelswidth：=orignwidth；{宽度}
      devmode.dmpelsheight：=orignheight；{高度}
      ChangeDisplaySettings(devmode,0)；{更改设置}
    end；
  end；
end；

到此，关于“DELPHI中自适应窗体的实现方法”的学习就结束了，希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习，快去试试吧！若想继续学习更多相关知识，请继续关注创新互联网站，小编会继续努力为大家带来更多实用的文章！