我在使用COMBOBOX和DBLOOKUPCOMBOBOX时，经常遇到版面空间有限而COMBOBOX和DBLOOKUPCOMBOBOX的下拉列表项过长而影响显示的问题，为了解决

Question

设置DBLOOKUPCOMBOBOX的DropDownWidth就可以了

Answer 1

可是COMBOBOX没有DROPDOWNWIDTH的属性啊？

Answer 2

设置DropDownCount可改变下拉列表项长度!
可以把控件的事件指给同一过程
如:ComboBox.OnChange=self.MyChange
然后可以通过Sender区别不同的控件!

Answer 3

在窗体类中加入
procedure MyChange(Sender: TObject);加入ComboBox.OnChange=self.MyChange在ComboBox中创建过程中!如果是在设计其间加入的,把所有的ComBox,如ComboBox1,ComboBox2……加上，在procedure TForm.FormCreate(Sender: TObject);中！
如
ComboBox1.OnChange=self.MyChange
ComboBox2.OnChange=self.MyChange
ComboBox3.OnChange=self.MyChange
……然后用Sender代替ComboBox1，如
Sender.width等同于ComboBox1.width

Answer 4

试一下这句话:
iWidth := 200;
SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH, iWidth, 0);