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中自適應窗體的實現方法”的學習就結束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續學習更多相關知識，請繼續關注億速云網站，小編會繼續努力為大家帶來更多實用的文章！