怎样设置combobox的下拉框显示完整文字?

[vsice]

TComboBox下拉框的默认宽度固定,当item的内容较长时就看不到完整内容,怎样才能让下拉框宽度自动调整到可显示全部文字?

[老之]

先找出内容长度最长的那个Item.ItemIndex
然后在OnDropDown事件里写：
var vWidth : integer;
begin
vWidth := ComboBox.Canvas.TextWidth(ComboBox.Items[i]);
ComboBox.Perform(CB_SETDROPPEDWIDTH, vWidth, 0);
end;