Tablet-Telefon Erkennung

[CHackbart]

Hi,

gute Frage - die habe ich danach auch gefunden. Ich probier das mal aus, aber ich hatte bei meinen alten Projekten stets damit zu kämpfen dass meine 7" Tablets als Tablets erkannt wurden und die Anzeige auf dem Huawei die eines Telefons ist und die von meinem Nexus ein Tablet.

Da fällt mir noch was ein:

Delphi-Quellcode:

procedure TForm2.SetTitleBar(const Visible: Boolean);
{$IFDEF ANDROID}
  NativeWin: JWindow;
  DecorView: JView;
  ActionBar: JActionBar;
  uiOptions: Integer;
{$ENDIF}
begin
  
{$IFDEF ANDROID}
  CallInUIThreadAndWaitFinishing(
    procedure
    begin
      NativeWin := TAndroidHelper.Activity.getWindow;
      if NativeWin <> nil then
      begin
        DecorView := NativeWin.getDecorView;
        if Visible then
          uiOptions := TJView.JavaClass.SYSTEM_UI_FLAG_VISIBLE
        else
          uiOptions := TJView.JavaClass.SYSTEM_UI_FLAG_FULLSCREEN;

        DecorView.setSystemUiVisibility(uiOptions);

        ActionBar := TAndroidHelper.Activity.getActionBar;
        if assigned(ActionBar) then
          if Visible then
            ActionBar.Show
          else
            ActionBar.Hide;
      end;
    end);
{$ENDIF}
end;

Prinzipiell kann man mit dem Code die Status- und Titlebar deaktivieren. Das geht aber offensichtlich nicht out of the Box.

Delphi-Quellcode:

TPlatformServices.Current.SupportsPlatformService(IFMXFullScreenWindowService, FFullScreenSrvice);
  if FFullScreenSrvice <> nil then 
    // its supported - make full screen
    FFullScreenSrvice.SetFullScreen(self, True);

geht wohl auch nicht wirklich unter Android?

Nachtrag: TDeviceInfo.ThisDevice.DeviceClass scheint auch zu gehen.

Christian