Delphi 10.1 Berlin FMX Android弹窗背景设置问题

TPopupBox的下拉弹窗本质是关联的TPopup组件，直接在样式里设对齐不生效，是因为默认样式的内容容器没正确约束，按下面步骤来：

• 打开TPopupBox的样式编辑器，找到popup节点（对应下拉弹窗），展开它的content子节点。
• 删除原来固定尺寸的Rectangle，重新加一个TRectangle，放在content的最顶层（所有RadioButton之前）。
• 给这个Rectangle设置以下属性：
  • Align选择Client
  • Fill.Color设为白色（或你需要的背景色）
  • 取消勾选HitTest，避免遮挡RadioButton的点击事件
• 关键设置：把content节点的Align设为Client，Size.Width和Size.Height改成WrapContent，这样内容容器会跟随内部RadioButton的布局自动撑开尺寸，Rectangle设了Client对齐就会铺满整个容器。
• 如果还是没效果，用代码动态调整：在TPopupBox的OnPopup事件里，同步Rectangle和弹窗内容的尺寸：

procedure TForm1.PopupBox1Popup(Sender: TObject);
var
  LPopup: TPopup;
  LBackgroundRect: TRectangle;
begin
  LPopup := PopupBox1.Popup;
  if Assigned(LPopup) and Assigned(LPopup.Content) then
  begin
    LBackgroundRect := LPopup.Content.FindStyleResource<TRectangle>('PopupBackground');
    if Assigned(LBackgroundRect) then
    begin
      LBackgroundRect.Width := LPopup.Content.Width;
      LBackgroundRect.Height := LPopup.Content.Height;
    end;
  end;
end;

记得给样式里的Rectangle命名为PopupBackground，方便代码定位。

在Delphi 10.1 Berlin的FMX框架里，这是最直接靠谱的方案，原因如下：

• 官方默认的TPopup样式就是透明背景，没有提供直接修改背景色的属性，只能通过自定义样式调整。
• 其他方案比如修改系统弹窗样式（改清单文件或JNI调用）不仅操作复杂，不同Android版本兼容性差，而且你已经遇到编译时清单被覆盖的问题。
• 自定义TPopup子类重绘背景的方式，实现和维护成本都比加Rectangle高得多。
• 用TRectangle做背景的优势是能灵活调整圆角、阴影、透明度等视觉效果，完全适配FMX的样式系统，对不同分辨率设备的适配也更可靠。

可以做个小优化：把TRectangle放在popup节点下（而非content节点内），Align设为Client，再给content的Margins设置一个合适的值（比如5），这样背景能比内容区域大一圈，做出边框或阴影效果，视觉上更美观。

内容的提问来源于stack exchange，提问作者Lorne Anderson