能不能为combobox添加水平滚动条？请关注！

Question

代码如下，不能实现procedure Tform_stat_vehicle_issue.pro_set_horizontal_scroll(my_combobox : Tcombobox);
var
  i, MaxWidth: integer;
begin
  MaxWidth := 0;
  for i := 0 to Tcombobox(my_combobox).Items.Count - 1 do
  if MaxWidth < Tcombobox(my_combobox).Canvas.TextWidth(Tcombobox(my_combobox).Items[i]) then
    MaxWidth := Tcombobox(my_combobox).Canvas.TextWidth(Tcombobox(my_combobox).Items[i]);
  SendMessage(Tcombobox(my_combobox).Handle, lb_sethorizontalextent, MaxWidth+2, 0);
end;

Answer 1

是CB_SETHORIZONTALEXTENT而不是LB_SETHORIZONTALEXTENT—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

过了这么久
还是没成功是CB_SETHORIZONTALEXTENT而不是LB_SETHORIZONTALEXTENT我改了，还是不行