如何取ComboBox1.itemindex

esunhong 2018-03-21 04:55:55

//给combobox赋值
ComboBox1.Items.AddObject('aaa', TObject(NewStr('001')));
ComboBox1.Items.AddObject('bbb', TObject(NewStr('002')));
ComboBox1.Items.AddObject('ccc', TObject(NewStr('003')));

//获取当单前TObject的值成功
str := PString(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^;

//根据TObject的值返回对应的itemindex 错误
itemindex:=ComboBox1.Items.IndexOfObject(TObject(NewStr('001'));

...全文

818 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

esunhong 2018-03-22

打赏
举报

返回是-1，可能只有通过items.indexof('aaa')来返回了

xiaocongzhi 2018-03-22

打赏
举报

同样是这个NewStr('001')，不代表其地址也一样。你要先搞个AObject: TObject记住你存入Objects里的某个项目，再用这个AObject取试试

doloopcn 2018-03-22

打赏
举报

还没有使用OBJITEM过这种方法，看程序应该是指针的问题返回是什么错误？应该是-1吧 itemindex:=ComboBox1.Items.IndexOfObject(TObject(NewStr('001')); TObject(NewStr('001')已经是一个新的指针，不存在于ITEMS中

if combobox2.ItemIndex = 1 then begin // 2. 使用 mouse_event setcursorpos(x0+p1.X,y0+p1.Y); mouse_event(MOUSEEVENTF_LEFTDOWN,x0+p1.X,y0+p1.Y ,0,0); mouse_event(MOUSEEVENTF_LEFTUP,x0+p1.X,y0+p1.Y...

Delphi为StringGrid网格显示控件中增加下拉框功能，也就是在Grid控件中添加Combobox下拉列表的功能，在任意列显示一个ComboBox功能，如演示截图所示，可大大扩展Grid的功能。生成列表：　with Sender as TComboBox ...

本课程属于《朱老师QT完全学习系列课程》的第1部分《QT上手》的第5个课程，主要是学习qt的输入编辑类控件。本课程并非零基础，需要沿着课程路线去系统学习。本课程主要讲了QT的编辑器类控件，包括： InputWidget ...

//把图片转换成bitmap jyIconEx.IconType:=TIconType(self.combobox1.itemindex);//设置图标是16色,256色或24位真彩色 jyIconEx.Transparent:=self.CheckBox1.Checked;//设置图标透明 jyIconEx.Bmp2IconFile(bmp,...

int nLevel =ComboBox1->ItemIndex;//纠错等级 int nVersion =StrToInt(ComboBox2->Text);//版本 bool bAutoExtent =true;//是否自动扩展 int nMaskingNo = StrToInt(ComboBox3->Text);//掩码模式 AnsiString ...