取得下列框(ComboBox)的 索引值,內容(文本),全部內容值,的方法

來源:互聯網
上載者:User

一、取使用者選取的索引值

              MessageDlg(IntToStr(ComboBox1.ItemIndex),mtError,[mbok],1); 

                  ComboBox1.ItemIndex     -1,為未選取;

                                                                 0,為第一項;

                                                                 1,為第二項;.

                                                                     ....................

二、取使用者選取項內容(文本)

              MessageDlg(ComboBox1.text,mtError,[mbok],1); 

 三、取全部項的值,無論使用者選技哪項

             MessageDlg(ComboBox1.Items.Text,mtError,[mbok],1);             MessageDlg(ComboBox1.Items.GetText,mtError,[mbok],1);

四、取子項的個數(count)

             MessageDlg(IntToStr(ComboBox1.Items.Count),mtError,[mbok],1);

五、禁止修ComboBox的內容,只允許使用者選擇提供的item選項,不允許自己修改text屬性

             可以有兩種方式  
                   1、Combobox1.Style:=csDropDownList;  
                   2、屬性Style還是基本的csDropDown,但需要在OnClick事件中對輸入索引值進行轉化,如下:Key:=#0;

六、程式控制選取哪一項

              1、ComboBox1.ItemIndex:=StrToInt('2');
                  2、ComboBox1.ItemIndex:=StrToInt(FieldbyName('Tel_class').AsString)七、程式中添加項,並選取的方法
                       combobox1.Items.Insert(0,'請選擇...');  
                                combobox1.ItemIndex:=   0; 

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.