DelphiXE8 开发IOS时，状态栏透明

首先，将项目的.info.plist文件中加入

<key>UIViewControllerBasedStatusBarAppearance</key>
<false/>

然后将窗体设置为全屏（fullScreen=True）

在窗体的Create事件中写入代码

procedure TForm1.FormCreate(Sender: TObject);
var
  APP:UIApplication;
begin
  APP := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication);
//  APP.setStatusBarStyle(UIStatusBarStyleDefault,True);
//  APP.setStatusBarStyle(UIStatusBarStyleLightContent,True);
  APP.setStatusBarStyle(UIStatusBarStyleBlackOpaque,True);
end;

运行就Ok了。

最新发现,这方法就是扯蛋,纯色背景直接设置属性就行了,而非纯色的还不晓得咋弄.