前言

使用Delphi开发安卓APP时，我们经常想要实现状态栏沉浸样式，但这方面资料较少，很多使用修改配置文件的方式去处理。使用起来相对麻烦了一些。为此，我花了点时间观摩学习了JAVA及其他Delphi实现状态栏沉浸式的代码，在自己动手实践后全面进行了封装。
（目前 据我所查询资料了解的，这是在delphi中实现安卓沉浸最为方便、快捷、适配效果最好的方式。）

实现功能简介

目前封装好的类主要可以分别实现安卓状态栏与导航栏的透明与不透明、设置颜色、设置字体的显示模式，如下图所示（这是演示APP展示的效果，也包括了可使用的功能）：

需要说明的是，针对于状态栏字体的显示模式时，需要安卓6或以上版本才有效，对于导航栏需要安卓8或以上才有这个设置属性。同时，因为国内各安卓厂家对系统的修改较多，也有所不同，所以最终的实现效果会因不同手机而出现不同情况。
目前我自己测试过的安卓5-9多部手机及平板上可以正常使用。如果有朋友遇到不能使用或效果不好的情况，可以给我留言说明，如果朋友有修改能力，也可以在我的代码上完成修改，也请将修改代码给我一份，以便给其他需要的朋友。

使用方式

需要使用到的主要代码都已封装到u_Immerse.pas文件的TImmerse类中，需要在项目主窗体先引用该文件，并在窗体创建时创建类。

引用与创建类

uses   u_Immerse;  procedure TFormMain.FormCreate(Sender: TObject); begin   // 创建类   vImmerse := TImmerse.Create;   vImmerse.OnTopBotChanged := SetTopBot;  //这是一个回调处理，用于修改显示页面 end; 

请注意，APP在关闭时，需要注销释放（具体请参看演示代码）

当状态改变后的回调处理

由于设置或取消沉浸式的状态栏后页面显示的高度会不同，所以在不同的情况下，页面也需要有相应的设置。TImmerse类中设置了一个回调处理过程，当状态发生变化后我们可以通过回调事件来对应的处理页面显示。
下面是一个简单的演示代码：

procedure TFormMain.SetTopBot(const ATop, ABot: Integer); begin   // 这里处理界面的， ATop是状态栏的高度， ABot是导航栏的高度；   // 当值等于0时，实际就是非透明状态，怎么处理就根据你自己的界面设计对应了哈。   TopBar.Height := ATop + TopToolBar.Height;   Lay_Bot.Height := ABot + CopyrightText.Height;   vTop := ATop;   vBot := ABot;   // 横屏后的导航栏需要另外处理的，我就没演示了。 end; 

我在这里简单的使用了两个布局控件来分别处理顶部与底部的显示，根据回调事件返回的状态栏高度与导航栏高度分别设置两个布局控件的高度，从而改变页面的整体布局。
例如：当参数ATop返回为0时，表示了没有使用沉浸方式，状态栏会显示在顶端，而APP的起始显示位置是在状态栏的下方，所以我对应的布局控件的高度相应变小。当参数ATop返回大于0时，如24，那么这时候状态栏是使用了沉浸方式，APP的显示顶端是在显示屏的最上边，这时的状态栏会与APP的显示重合。显示效果如下面两张图片：

图一：以一张图片为APP背景的显示效果。

图二：以布局控件显示的效果，背景设置为纯色（是布局控件内的颜色，当然也可以直接设置状态栏的颜色）。

请注意，由于沉浸的处理都在TImmerse类中封装处理的，而APP页面的处理只能根据APP的实际应用去处理，所以这个回调事件的使用将会是你需要考虑的重点。当然，这也并不是很难。看看代码，应该能会。

其他设置

整个类里主要需要使用到的有6 个属性：

FStatusBarStatus: TStatusBarStatus;  //状态栏的状态 FNavigationBarStatus: TNavigationBarStatus;   //导航栏的状态  FStatusBarLight: TStatusBarLight;    //状态栏的字体显示模式 FNavigationBarLight: TStatusBarLight; //导航栏的字体显示模式  FStatusBarColor: TAlphaColor; //状态栏的颜色 FNavigationBarColor: TAlphaColor;//导航栏的颜色 

TStatusBarStatus 状态栏的状态

default 对应状态栏默认方式
translucent 半透明方式
transparent 透明方式
在某些手机上只有透明，即便设置为半透明显示效果也会是全透明的。

TNavigationBarStatus 导航栏的状态

NoTransparent 对应导航栏为不透明
IsTransparent 对应导航栏为透明

TStatusBarLight 字体高亮

NoLight 对应显示字体为深色
Light 对应显示字体为浅色

状态栏与导航栏都可以设置字体高亮显示，状态栏需要在安卓版本6或以上有效，导航栏需要在安卓版本8或以上有效。

使用方式如下(创建好类后，在窗体显示的过程中仅需要以下两条代码就可以实现沉浸)：

    vImmerse.StatusBarStatus := TStatusBarStatus.transparent;  //状态栏为透明     vImmerse.NavigationBarStatus := TNavigationBarStatus.IsTransparent;//导航栏为透明 

演示代码及封装类下载地址

点击可跳转下载页面

相关或类似文章

1、Delphi D10.3 LayoutsPro 控件简介 -避免输入焦点被虚拟键盘遮挡
推荐到这里，不是因为控件，是因为这个DEMO里有较多的可用于界面布局学习的内容；
（重点重点重点：本演示中使用到这个控件，请参阅下载）

2、Delphi D10.1 移动开发中APP界面基本布局（一）

3、Delphi D10.X 移动开发中APP界面基本布局（二）

4、Delphi D10.X VCL和FireMonkey之间的常见差异介绍

欢迎光顾本人小店：(https://shop63778938.taobao.com/)
小店也提供delphi方面其他技术支持、定制开发。

现在就进店看看

大家有什么不清楚的，可以给我留言或讨论。
以上信息对您有用的话请，就下面这行