全 OS の SafeArea を返すクラス
uses に PK.HardInfo.SafeArea を追加します。
TSafeArea はウィンドウが表示されていないと正しい値を返しません。
そのため、TForm.OnCreate ではなく TForm.OnShow といったウィンドウが表示されたタイミングのイベントを利用します。
TSafeArea.DpRect は SafeArea を FireMonkey の座標系で返します。
TSafeArea.DpRect と Form の位置とサイズを比較しはみ出している場合は修正します。
この作業の最も簡単な方法は TLayout を TForm に最上位に置き他の部品は全て TLayout の上に構築するようにします。
そして TLayout の Margin を SafeArea 内になるように設定すれば SafeArea 対応になります。
そのための簡単なメソッド TSafeArea.GetMarginRect が用意されています。
TLayout の名前を Root とすると以下のようになります。
procedure TForm1.FormShow(Sender: TObject);
begin
Root.Margin := TSafeArea.GetMarginRect(Self);
end;StatusBar などのシステム領域が Cutout に含まれて返ってくる端末があります。
Fullscreen 表示の時でも OS から返ってきた値をそのまま渡しているので、上記の端末では適宜必要な値（GetMarginRect.Left や Right など）だけ取得してください。
Copyright (c) 2022 HOSOKAWA Jun Twitter: @pik
Released under the MIT license http://opensource.org/licenses/mit-license.php