var
DeviceBehavior: IDeviceBehavior;
DisplayMetrics: TDeviceDisplayMetrics;
begin
if TBehaviorServices.Current.SupportsBehaviorService(IDeviceBehavior,DeviceBehavior,Self) then
begin
DisplayMetrics:=DeviceBehavior.GetDisplayMetrics(Self);
Label1.Text:='物理分辨率:'+IntToStr(DisplayMetrics.PhysicalScreenSize.cx)+'x'+IntToStr(DisplayMetrics.PhysicalScreenSize.cy)+#13#10+
'屏幕尺寸:'+FloatToStr(sqrt(
DisplayMetrics.PhysicalScreenSize.cx*DisplayMetrics.PhysicalScreenSize.cx/DisplayMetrics.PixelsPerInch/DisplayMetrics.PixelsPerInch+
DisplayMetrics.PhysicalScreenSize.cy*DisplayMetrics.PhysicalScreenSize.cy/DisplayMetrics.PixelsPerInch/DisplayMetrics.PixelsPerInch))+#13#10+
'PPI:'+FloatToStr(DisplayMetrics.PixelsPerInch);
end;
end;
TDeviceDisplayMetrics的几个成员: