ComboBox控件无法显示全部内容

Question

ComboBox控件宽度固定，如果输入的内容过多
在下拉时不能看见全部内容，请问设置什么属性能够全部看到

Answer 1

SendMessage(combo1.Handle, CB_SETDROPPEDWIDTH,ProperWidth,0);

Answer 2

SendMessage(combo1.Handle, CB_SETDROPPEDWIDTH,ProperWidth,0);
这句话应写在那里

Answer 3

写到combox所在的form的相关代码里，如：onshow

Answer 4

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
  I: Integer;
  vMaxWidth: Integer;  {uses Math;}
begin
  vMaxWidth := TComboBox(Sender).Width;
  for I:=0  to  TComboBox(Sender).Items.Count  -  1  do
    vMaxWidth := Max(vMaxWidth, TComboBox(Sender).Canvas.TextWidth(TComboBox(Sender).Items[I]) + 8);
  TComboBox(Sender).Perform(CB_SETDROPPEDWIDTH, vMaxWidth, 0);
end;