如何实现下拉列表?
数据库表
group
{
groupid number(5)
groupname varchar(100)
}
我想将表中的数据读取到一个下拉列表中,显示groupname。当用户选择了某一项后得到选中的那一项的groupid。
[解决办法]
用ComboBox就可以实现了。例子:
添加项目到下拉列表中
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ComboBox1->Items->AddObject("GroupName1", (TObject *)1);
ComboBox1->Items->AddObject("GroupName2", (TObject *)2);
ComboBox1->Items->AddObject("GroupName3", (TObject *)3);
ComboBox1->Items->AddObject("GroupName4", (TObject *)4);
ComboBox1->Items->AddObject("GroupName5", (TObject *)5);
}
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
int nIndex = ComboBox1->ItemIndex;
if (nIndex > -1)
{
ShowMessage(String().sprintf(TEXT("选择的项是:%s, ID是%d"),
ComboBox1->Items->Strings[nIndex],
(int)ComboBox1->Items->Objects[nIndex]));
}
}