Android实例-获取屏幕的物理分辨率

相关资料：

http://blog.qdac.cc/?p=1161

实例代码：

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Label2: TLabel;
     Memo1: TMemo;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation
 uses
   FMX.BehaviorManager;//需要引入
 {$R *.fmx}
 {$R *.LgXhdpiPh.fmx ANDROID}
 {$R *.Surface.fmx MSWINDOWS}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   DeviceBehavior: IDeviceBehavior;
   DisplayMetrics: TDeviceDisplayMetrics;
 begin
   if TBehaviorServices.Current.SupportsBehaviorService(IDeviceBehavior, DeviceBehavior, Self) then
   begin
     DisplayMetrics := DeviceBehavior.GetDisplayMetrics(Self);
     Memo1.Lines.Add('物理分辨率:');
     Memo1.Lines.Add(IntToStr(DisplayMetrics.PhysicalScreenSize.cx) + 'x' + IntToStr(DisplayMetrics.PhysicalScreenSize.cy));
     Memo1.Lines.Add('屏幕尺寸:');
     Memo1.Lines.Add(
       FloatToStr(sqrt(
       DisplayMetrics.PhysicalScreenSize.cx * DisplayMetrics.PhysicalScreenSize.cx / DisplayMetrics.PixelsPerInch / DisplayMetrics.PixelsPerInch +
       DisplayMetrics.PhysicalScreenSize.cy * DisplayMetrics.PhysicalScreenSize.cy / DisplayMetrics.PixelsPerInch / DisplayMetrics.PixelsPerInch)));
     Memo1.Lines.Add('PPI:');
     Memo1.Lines.Add(FloatToStr(DisplayMetrics.PixelsPerInch));
   end;
 end;

 end.