Delphi RAD STUDIO android 应用与 kitkat 4.4.2 上的状态栏重叠

Question

我正在 android 上测试简单的 delphi 应用程序，但结果应用程序与设备上的状态栏重叠。我正在使用 android kitkat 4.4.2 和 delphi xe8。这是屏幕截图：

我知道 delphi 正在使用使用 OpenGL 渲染图形用户界面的 firemonkey。所以我尝试在 android studio 上制作简单的项目来测试我设备上的 openGL，以了解它是否重叠。但结果应用程序显示正常。所以我猜是内部 delphi 操作（或可能是配置）导致了这个问题。

那么如何才能让 delphi 应用程序在我的设备上正常显示（状态栏下方的应用程序）？

注意：我在android冰淇淋三明治和糖豆上试了一下，app显示正常，没有重叠。

Answer 1

我找到了一些解决方法。

我使用 getResource 方法获取状态栏高度，并使用该值设置表单的顶部填充。但是由于状态栏高度值不同于 delphi 表单（在我的例子中它有更多的值），我必须通过将它除以内容高度乘以表单高度来调整它。我认为这与像素和密度像素有关。我对此还不清楚，所以我只是使用逻辑。

代码如下：

uses
    Androidapi.Helpers,
    Androidapi.JNI.JavaTypes,
    Androidapi.JNI.GraphicsContentViewText,
    AndroidApi.Jni.App;

Procedure TForm1.setPadding();
var
  statusbarHeight,FormStatusbarHeight,contentHeight:integer;
  view:JView;
begin
  if top=0 then begin    

    //get status bar height
    SharedActivity.getResources.getIdentifier(StringToJString('status_bar_height'),
          StringToJString('dimen'),
          StringToJString('android'));
    if resourceID>0 then begin
      statusBarHeight:=resource.getDimensionPixelSize(resourceID);
    end;

    //get content height
    resourceid:=Resource.getIdentifier(StringToJString('content'),
          StringToJString('id'),
          StringToJString('android'));
    if resourceID>0 then begin
      view:=SharedActivity.findViewById(resourceID);
    end;
    contentHeight:=view.getHeight;

    //count statusbar height value on form
    FormStatusBarHeight:=round(statusbarheight*self.Height/contentHeight);
    //set padding    
    self.padding.top:=FormStatusBarHeight;
  end;
end;

Self.top 属性可以表示应用重叠与否。如果应用程序与状态栏重叠，则 self.top 的值为零。

Delphi RAD STUDIO android 应用与 kitkat 4.4.2 上的状态栏重叠

Delphi RAD STUDIO android app overlap with status bar on kitkat 4.4.2

delphi

android

firemonkey