cxImageCombobox使用

最新推荐文章于 2021-04-29 19:12:40 发布

原创最新推荐文章于 2021-04-29 19:12:40 发布 · 3.1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #integer #button #测试

Delphi 专栏收录该内容

29 篇文章

订阅专栏

本文介绍了在Delphi中如何使用DevExpress组件cxImageComboBox，包括如何设置属性、动态添加项目以及解决类型转换错误的问题。在cxImageComboBox的OnCreate事件中动态添加了四个条目，并在按钮事件中展示了编辑值的正确获取方式。

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进行转换，而静态不须转换即可使用。