关于在程序中设定combobox的下拉菜单宽度[delphi]

定义：

CbName: TComboBox;

width: Integer; //实际所需的宽度

在执行代码中按如下方法写：

width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度，也可以按自己的需要设定宽度

SendMessage(CbName.Handle, CB_SETDROPPEDWIDTH, width, 0);