屏幕自动适应问题

2013-12-04 01:31:43 370 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

屏幕键盘自动弹出问题全面解析与解决方案屏幕键盘自动弹出的问题虽然看似简单，但可能涉及多个方面的因素。通过仔细分析可能的原因并采取相应的解决方案，大多数用户都能够成功解决这一问题并恢复正常的操作环境。无论是通过调整系统设置、检查数位板设置、卸载冲突软件还是使用更高级的方法如修改注册表，重要的是要耐心细致地排查问题所在并逐一尝试解决方案。希望本文提供的指导和建议能够帮助您有效解决屏幕键盘自动弹出的问题，提升电脑使用的便捷性和舒适度。阅读详情

看了很多的屏幕自动适应的处理，感觉都不是很理想。不能适应各种分辨率，也不适应某些宽屏。有没有像WINDOWS那种，随便什么分辨率，屏幕都能适应的代码处理。

...全文

开源，安卓自动缩放布局，解决屏幕适配问题做过安卓开发的都知道，屏幕适配是一件非常困难的事情。 Google官方的解决方案：http://developer.android.com/guide/practices/screens_support.html 需要写多个layout文件以及dimens.xml，工作量大不说，维护也麻烦。其实很多时候我们的需求很简单，就是要求不同的屏幕看上去效果一样就可以了。这样就需要我们布局的阅读详情

xiaoyulier

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

xiaoyulier 2013-12-27

打赏
举报

unit uMyClassHelpers; //实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题。 interface Uses SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, Math,typinfo; // uMySysUtils; Const //记录设计时的屏幕分辨率 OriWidth=1024; OriHeight=768; var OriWidth,OriHeight:Integer; 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 uses UMain; 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; function PropertyExists(const AObject: TObject;const APropName:String):Boolean; //判断一个属性是否存在 var PropInfo:PPropInfo; begin PropInfo:=GetPropInfo(AObject.ClassInfo,APropName); Result:=Assigned(PropInfo); end; function GetObjectProperty( const AObject : TObject; const APropName : string ):TObject; var PropInfo:PPropInfo; begin Result := nil; PropInfo:=GetPropInfo(AObject.ClassInfo,APropName); if Assigned(PropInfo) and (PropInfo^.PropType^.Kind = tkClass) then Result := GetObjectProp(AObject,PropInfo); end; //保存原有坐标位置：利用递归法遍历各级容器里的控件，直到最后一级 Procedure ControlsPostoList(vCtl:TControl;vList:TList); Var locPRect:^TRect; i:Integer; locCtl:TControl; locFontp:^Integer; Begin try New(locPRect); locPRect^:=vCtl.BoundsRect; vList.Add(locPRect); If PropertyExists(vCtl,'FONT') Then Begin LocFont:=TFont(GetObjectProperty(vCtl,'FONT')); New(locFontp); locFontP^:=LocFont.Size; vList.Add(locFontP); // ShowMessage(vCtl.Name+'Ori:='+InttoStr(LocFont.Size)); End; If vCtl Is TWinControl Then For i:=0 to TWinControl(vCtl).ControlCount-1 Do begin locCtl:=TWinControl(vCtl).Controls[i]; ControlsPosToList(locCtl,vList); end; except Raise; end; End; //计算新的坐标位置：利用递归法遍历各级容器里的控件，直到最后一层。 // 计算坐标时先计算顶级容器级的，然后逐级递进 Procedure AdjustControlsScale(vCtl:TControl;vList:TList;Var vK:Integer); Var locOriRect,LocNewRect:TRect; i:Integer; locCtl:TControl; Begin try If vCtl.Align<>alClient Then Begin locOriRect:=TRect(vList.Items[vK]^); With locNewRect Do begin Left:=Round(locOriRect.Left*fScrResolutionRateW); Right:=Round(locOriRect.Right*fScrResolutionRateW); Top:=Round(locOriRect.Top*fScrResolutionRateH); Bottom:=Round(locOriRect.Bottom*fScrResolutionRateH); vCtl.SetBounds(Left,Top,Right-Left,Bottom-Top); end; End; If PropertyExists(vCtl,'FONT') Then Begin Inc(vK); LocFont:=TFont(GetObjectProperty(vCtl,'FONT')); locFontSize:=Integer(vList.Items[vK]^); LocFont.Size := Round(LocFontRate*locFontSize); // ShowMessage(vCtl.Name+'New:='+InttoStr(LocFont.Size)); End; Inc(vK); If vCtl Is TWinControl Then For i:=0 to TwinControl(vCtl).ControlCount-1 Do begin locCtl:=TWinControl(vCtl).Controls[i]; AdjustControlsScale(locCtl,vList,vK); end; except Raise; end; End; //释放坐标位置指针和列表对象 Procedure FreeListItem(vList:TList); Var i:Integer; Begin For i:=0 to vList.Count-1 Do Dispose(vList.Items[i]); vList.Free; End; begin LocList:=TList.Create; Try Try if (Screen.width<>OriWidth)OR(Screen.Height<>OriHeight) then begin CalBasicScalePars; // AdjustComponentFont(Self); ControlsPostoList(Self,locList); locK:=0; AdjustControlsScale(Self,locList,locK); End; Except on E:Exception Do Raise Exception.Create('进行屏幕分辨率自适应调整时出现错误'+E.Message); End; Finally FreeListItem(locList); End; end; { TfdForm } constructor TfdForm.Create(AOwner: TComponent); begin inherited; fIsDlgChange:=False; end; end. 解决了。

xiaoyulier 2013-12-26

打赏
举报

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:TControl;vList:TList); Var locPRect:^TRect; i:Integer; locCtl:TControl; Begin try New(locPRect); locPRect^:=vCtl.BoundsRect; vList.Add(locPRect); If vCtl Is TWinControl Then For i:=0 to TWinControl(vCtl).ControlCount-1 Do begin locCtl:=TWinControl(vCtl).Controls[i]; ControlsPosToList(locCtl,vList); end; except Raise; end; End; {计算新的坐标位置：利用递归法遍历各级容器里的控件，直到最后一层。计算坐标时先计算顶级容器级的，然后逐级递进} Procedure AdjustControlsScale(vCtl:TControl;vList:TList;Var vK:Integer); Var locOriRect,LocNewRect:TRect; i:Integer; locCtl:TControl; Begin try If vCtl.Align<>alClient Then Begin locOriRect:=TRect(vList.Items[vK]^); With locNewRect Do begin Left:=Round(locOriRect.Left*fScrResolutionRateW); Right:=Round(locOriRect.Right*fScrResolutionRateW); Top:=Round(locOriRect.Top*fScrResolutionRateH); Bottom:=Round(locOriRect.Bottom*fScrResolutionRateH); vCtl.SetBounds(Left,Top,Right-Left,Bottom-Top); end; End; Inc(vK); If vCtl Is TWinControl Then For i:=0 to TwinControl(vCtl).ControlCount-1 Do begin locCtl:=TWinControl(vCtl).Controls[i]; AdjustControlsScale(locCtl,vList,vK); end; except Raise; end; End; {按照新的比例设计窗体中各组件的字体} Procedure AdjustComponentFont(vCmp:TComponent); Var i:Integer; locCmp:TComponent; Begin try For i:=vCmp.ComponentCount-1 Downto 0 Do Begin locCmp:=vCmp.Components[i]; If PropertyExists(LocCmp,'FONT') Then Begin LocFont:=TFont(GetObjectProperty(LocCmp,'FONT')); LocFontSize := Round(LocFontRate*LocFont.Size); LocFont.Size:=LocFontSize; End; End; except Raise; end; End; {释放坐标位置指针和列表对象} Procedure FreeListItem(vList:TList); Var i:Integer; Begin For i:=0 to vList.Count-1 Do Dispose(vList.Items[i]); vList.Free; End; begin LocList:=TList.Create; Try Try if (Screen.width<>OriWidth)OR(Screen.Height<>OriHeight) then begin CalBasicScalePars; AdjustComponentFont(Self); ControlsPostoList(Self,locList); locK:=0; AdjustControlsScale(Self,locList,locK); End; Except on E:Exception Do Raise Exception.Create('进行屏幕分辨率自适应调整时出现错误'+E.Message); End; Finally FreeListItem(locList); End; end; { TfdForm } constructor TfdForm.Create(AOwner: TComponent); begin inherited; fIsDlgChange:=False; end; end. 怎么使用？？？