Delphi 10.4.2 FMX中tComboBox.ListBox在Mac系统滚动条不显示如何解决

造成直接设置AniCalculations.AutoShowing无效的核心原因是：FMX框架中TComboBox的内部ListBox为延迟初始化，只有首次触发下拉动作时才会完成实例创建和属性加载，在窗体创建、组件构造阶段的赋值会直接失效。你可以使用以下两种方案解决：

• 方案1：单组件临时适配（无需自定义组件，适合少量ComboBox场景）
  将属性赋值逻辑放到ComboBox的OnDropDown事件中，此时内部ListBox已经完成初始化，配置可以正常生效：

  procedure TYourForm.ComboBox1DropDown(Sender: TObject);
  begin
    if Assigned(ComboBox1.ListBox) then
    begin
      ComboBox1.ListBox.AniCalculations.AutoShowing := False;
      // 额外适配MacOS平台滚动条特性，强制保持显示
      ComboBox1.ListBox.VertScrollBar.Visible := True;
      ComboBox1.ListBox.VertScrollBar.TouchTracking := TTouchTracking.ttAlways;
    end;
  end;
  

  该配置首次下拉生效后，后续所有下拉操作都会保持垂直滚动条常显，无需重复赋值。

• 方案2：自定义全局组件（适合大量ComboBox场景，统一配置）
  继承TComboBox重写CreateListBox方法，在内部ListBox创建完成时直接注入配置：

  unit CustomComboBox;
  
  interface
  
  uses FMX.ListBox, FMX.ComboEdit;
  
  type
    TComboBoxPermanentScroll = class(TComboBox)
    protected
      function CreateListBox: TCustomListBox; override;
    end;
  
  implementation
  
  function TComboBoxPermanentScroll.CreateListBox: TCustomListBox;
  begin
    Result := inherited;
    Result.AniCalculations.AutoShowing := False;
    Result.VertScrollBar.Visible := True;
  end;
  

  后续将项目中需要该特性的TComboBox替换为TComboBoxPermanentScroll即可全局生效。

补充说明 #

如果以上配置仍未生效，可检查MacOS系统级滚动条配置：打开「系统设置」-「外观」-「显示滚动条」，选择「总是」即可，上述代码配置优先级高于系统默认配置，多数场景下无需修改系统设置。

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