如何使用delphi combobox

Posted 2023-04-23

参考技术A combobox1.Items.Clear;
combobox1.Items.Add('第一项选择');
combobox1.Items.Add('第二项选择');
combobox1.Items.Add('第三项选择');
只要将要选择的内容加入到 combobox1.Items中就可以了本回答被提问者和网友采纳

Delphi之ComboBox

 

手动添加数据到ComboBox

jcsqueryResult.First;
while not jcsdqryvehiclebydriverid.Eof do   //从TJsonClientDataSet中取出数据，存到ComboBox中
 begin
 v := Vehicle.Create();//这个类有vehicleno和id2个属性。
 v.vehicleno :=jcsqueryResult.FieldByName(‘vehicleno‘).AsString;
 v.id := jcsqueryResult.FieldByName(‘vehicleid‘).aslargeint; 
NovaVehicleNoComboBox.Items.AddObject(v.vehicleno, TObject(v));  //存到ComboBox中
jcsqueryResult.Next; 

end;

 

 从ComboBox中取出选择的数据。

ve := (NovaVehicleNoComboBox.Items.Objects[NovaVehicleNoComboBox.ItemIndex] as  Vehicle);