【结】ComboBox下拉项内容过长，显示不全问题

aboy

ComboBox 长度固定（美观），但是里面有几项内容很长，下拉时显示到 ComboBox长度时就截掉了，
怎么让它全部内容显示出来。

       谢谢！

aboy

搞定。结

atiger

把解决的方法共享一下吧，

aboy

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

shangxy

好贴