DELPHI中自適應(yīng)窗體的實(shí)現(xiàn)方法

這篇文章主要介紹“DELPHI中自適應(yīng)窗體的實(shí)現(xiàn)方法”，在日常操作中，相信很多人在DELPHI中自適應(yīng)窗體的實(shí)現(xiàn)方法問題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對(duì)大家解答”DELPHI中自適應(yīng)窗體的實(shí)現(xiàn)方法”的疑惑有所幫助！接下來，請(qǐng)跟著小編一起來學(xué)習(xí)吧！

前言

我們知道，屏幕分辨率的設(shè)置影響著表單布局，假設(shè)你的機(jī)器上屏幕分辨率是800*600，而最終 要分發(fā)應(yīng)用的機(jī)器分辨率為640*480，或1024*768，這樣你原先設(shè)計(jì)的表單在新機(jī)器上勢(shì)必會(huì) 走樣。這時(shí)你一定希望表單能自己適應(yīng)不同的分辨率，下面就有兩種方法可供你參考。

實(shí)現(xiàn)方法

一、根據(jù)新的分辨率自動(dòng)重畫表單及控件

　　先在表單單元的Interface部分定義兩個(gè)常量，表示設(shè)計(jì)時(shí)的屏幕的寬度和高度（以像素為 單位）。在表單的Create事件中先判斷當(dāng)前分辨率是否與設(shè)計(jì)分辨率相同，如果不同，調(diào)用表 單的SCALE過程重新能調(diào)整表單中控件的寬度和高度。

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過程在調(diào)整控件寬度和高度的同時(shí)，也自動(dòng)調(diào)整控件字體的大小，以適應(yīng)新的分辨率， 但美中不足的是它并不改變控件的頂點(diǎn)坐標(biāo)位置，也就是說，該過程不改變控件之間的相對(duì) 位置關(guān)系。要想調(diào)整控件之間的選隊(duì)相對(duì)位置，還需要自己編程實(shí)現(xiàn)，有興趣的讀者可試一 試。

二、將機(jī)器分辨率更改為設(shè)計(jì)時(shí)的分辨率

　　這種方法不改變表單本身，而是將屏幕分辨率更改為與表單設(shè)計(jì)時(shí)用到的分辨率相同。它需要用到WINDOWSAPI函數(shù)EnumDisplaySettings和ChangeDisplaySettings，前者取當(dāng)前顯示模式信息，后者則更改顯示設(shè)置，具體參數(shù)的含義請(qǐng)參見DELPHI幫助。設(shè)計(jì)時(shí)寬度常量 和高度常量的定義如方法一。

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)；{更改設(shè)置}
    end；
  end；
end；

到此，關(guān)于“DELPHI中自適應(yīng)窗體的實(shí)現(xiàn)方法”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí)，請(qǐng)繼續(xù)關(guān)注億速云網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)砀鄬?shí)用的文章！