cxImageCombobox使用

delphi中DevExpress组件中的cxImageCombobox功能很强大，近几天同事测试，问题都出在它，于是研究了一番。

 

新建一个应用程序，拖2个cxImageComboBox在窗体上,然后加一个button。

设置属性如下

 name                                 value

cxImageComboBox1    editValue=0  type=Shortint

                                  items 属性设置如下

                                  Desciption    Value        ValueType   Tag
                                            死亡           0           shortint     0
                                            存活           1           shortint     0

cxImageCombobox2

 

 

在窗体的OnCreate事件如下

procedure TForm1.FormCreate(Sender: TObject);
var
  t:integer;
  item:TcxImageComboBoxItem;
begin
  for t:=0 to 3 do
   begin
     item:=cxImageComboBox2.Properties.Items.Add;
     item.Description:='test'+IntToStr(t);
     item.Value:=t;
   end;
end;

 

按钮事件如下

var
  t:string;
begin
 t:=cxImageComboBox1.EditValue;
 ShowMessage(t);
 t:=VarToStr(cxImageComboBox2.EditValue);  
 ShowMessage(t);

 

当动态添加时不选择选项就报类型转换错误，必须加VarToStr进行转换，而静态不须转换即可使用。