Question

你好，想再请教你个问题Delphi? 谢谢了。

在窗体上建立一个列表框，一个命令按钮。程序运行后在列表框中选择所需要的项目（可多选），单击“添加按钮后，可把所选项目添加到组合框的下选菜单中。

Answer 1

在按钮的OnClick事件下写
for i:=0 to listbox.Items.Count-1 do
begin
if listbox.Selected[i] then
combobox.Items.Add(listbox.Items[i]);
end;

追问

我试过，不行呀，麻烦你给一下具体代码，谢谢了

追答

把ListBox的MultiSelect设置为true，运行时多选按住Shift键或Ctrl键
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lst1: TListBox;
cbb1: TComboBox;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to lst1.Items.Count-1 do
begin
if lst1.Selected[i] then
cbb1.Items.Add(lst1.Items[i]);
end;
end;
end.