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進行轉換，而靜態不須轉換即可使用。