定义:
CbName: TComboBox;
width: Integer; //实际所需的宽度
在执行代码中按如下方法写:
width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度,也可以按自己的需要设定宽度
SendMessage(CbName.Handle, CB_SETDROPPEDWIDTH, width, 0);
定义:
CbName: TComboBox;
width: Integer; //实际所需的宽度
在执行代码中按如下方法写:
width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度,也可以按自己的需要设定宽度
SendMessage(CbName.Handle, CB_SETDROPPEDWIDTH, width, 0);