关于combox控件的使用(控制是否可以输入)

Question

我想实现:根据我的需要设置Tcombobox的是否可写属性,就象TEdit的READONLY属性;
如定义方法:SetReadonly(AReadOnly: Boolean); True :不可写,False 可写,该如何写?
Tcombobox的三天style属性为csDropDown;
(我不通过style属性设置为csDropDownList来控制)

Answer 1

定义一个
type
  TMyComboBox = class(TComboBox)
  end;
设置只读：
SendMessage(TMyComboBox(ComboBox1).EditHandle, EM_SETREADONLY, Ord(true), 0);
设置可写：
SendMessage(TMyComboBox(ComboBox1).EditHandle, EM_SETREADONLY, Ord(False), 0);