Delphi中如何修改TComboBox滚动条的主题或颜色？

方案一：利用Windows原生主题参数（无需自定义组件） #

在Windows 11及部分新版系统中，TComboBox的下拉滚动条不跟随深色主题，本质是默认未加载对应主题配置。可以通过发送CB_SETWINDOWTHEME消息指定深色主题标识，替代单纯调用SetWindowTheme：

procedure TForm1.FormCreate(Sender: TObject);
const
  CB_SETWINDOWTHEME = $030A;
begin
  SendMessage(ComboBox1.Handle, CB_SETWINDOWTHEME, 0, LPARAM(PChar('DarkMode_Explorer')));
end;

该操作会让下拉列表的滚动条自动适配系统深色主题，同时保留组件原生交互逻辑。

方案二：自定义下拉列表窗口（扩展组件） #

如果上述系统级方法不生效，可通过继承TComboBox实现自定义：

• 重写CreateWnd方法，在下拉列表窗口创建时，手动设置其滚动条的绘制样式
• 拦截下拉窗口的WM_PAINT消息，自行绘制深色风格的滚动条轨道、滑块等元素

关于之前方法无效的原因 #

• WM_CTLCOLOREDIT仅作用于ComboBox的编辑输入区域，无法影响下拉列表的滚动条
• 单纯调用SetWindowTheme未针对ComboBox的下拉列表部分传入正确的主题参数，因此滚动条样式无变化

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