本文主要是介绍delphi屏幕分辩率及缩放自适应解决方案,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
以下在win10上做的测试,win7未试验,有需要的可以自行测试。
首先应用程序Application.Manifest中设置为:per Monitor V2. 不然有可能窗体收不到屏幕变动通知。
Delphi10.4版本中,窗体有Scaled属性,true为默认,表示屏幕缩放时,窗体也跟着缩放。false时屏幕缩放比例的变化,窗体不会相应跟着变动。
窗体的OnAfterMonitorDpiChanged事件中,加上
ScaleForCurrentDpi;ScaleControls(OldDPI,NewDPI);
即可在Scale设置了true的情况下,反向还原窗口与子控件大小设置。
这篇关于delphi屏幕分辩率及缩放自适应解决方案的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!