Delphi窗体自适应屏幕分辨率.docVIP

Delphi窗体自适应屏幕分辨率 Delphi窗体自适应屏幕分辨率 这个问题我以前发过，但解决的不完满。egust后来发给我一堆似天书般的源码，我没看懂也没有用起来。 今天我发布的源码对于Delphi窗体适应于不同屏幕分辨率的问题有个比较完美的解决方案，我做了好写试验，原来调整不好的窗体控件分布，现在都会随着屏幕分辨率的变化而排列得规规矩矩了。比较闹心的是字体，有时候某些机器屏幕分辨率过低，则会显得字体过小而看不清，如果放大字体，就会出现字被吃掉的情况。 源码如下。应用方法是，创建新的窗体时，将窗体类继承自这里两个类中之一就可以了。 unit uMyClassHelpers; {实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题。 陈小斌，2012年3月5日 } interface Uses SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, Math, uMySysUtils; Const //记录设计时的屏幕分辨率 OriWidth=1366; OriHeight=768; Type TfmForm=Class(TForm) //实现窗体屏幕分辨率的自动调整 Private fScrResolutionRateW: Double; fScrResolutionRateH: Double; fIsFitDeviceDone: Boolean; procedure FitDeviceResolution; Protected Property IsFitDeviceDone:Boolean Read fIsFitDeviceDone; Property ScrResolutionRateH:Double Read fScrResolutionRateH; Property ScrResolutionRateW:Double Read fScrResolutionRateW; Public Constructor Create(AOwner: TComponent); Override; End; TfdForm=Class(TfmForm) //增加对话框窗体的修改确认 Protected fIsDlgChange:Boolean; Public Constructor Create(AOwner: TComponent); Override; Property IsDlgChange:Boolean Read fIsDlgChange default false; End; implementation constructor TfmForm.Create(AOwner: TComponent); begin Inherited Create(AOwner); fScrResolutionRateH:=1; fScrResolutionRateW:=1; Try if Not fIsFitDeviceDone then Begin FitDeviceResolution; fIsFitDeviceDone:=True; End; Except fIsFitDeviceDone:=False; End; end; procedure TfmForm.FitDeviceResolution; Var LocList:TList; LocFontRate:Double; LocFontSize:Integer; LocFont:TFont; locK:Integer; {计算尺度调整的基本参数} Procedure CalBasicScalePars; Begin try Self.Scaled:=False; fScrResolutionRateH:=screen.height/OriHeight; fScrResolutionRateW:=screen.Width/OriWidth; LocFontRate:=Min(fScrResolutionRateH,fScrResolutionRateW); except Raise; end; End; {保存原有坐标位置：利用递归法遍历各级容器里的控件，直到最后一级} Procedure ControlsPostoList(vCtl:TContro