1、一次添加完
combobox1.items.AddStrings(listbox1.Items);
2、添加选中的项到combobox
if listbox1.ItemIndex > -1 then //判断listbox1是否有选中的项
combobox1.items.add(listbox1.Items[listbox1.ItemIndex]);
procedure TForm1.Button1Click(Sender: TObject);
begin
combobox1.Items:=listbox1.Items;
end;
combobox1.Items:=listbox1.Items;