Question

请大神帮忙，delphi 中当点击listbox中的一条信息时，将该条信息添加到memo中并显示。代码怎么写？？？

procedure TForm7.bsSkinListBox1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to bsSkinListBox1.Items.Count-1 do
begin
if bsSkinListBox1.Selected[i] then
bsSkinMemo1.Lines.Add(bsSkinListBox1.Items.Strings[i]);
end;
end;

这代码执行没反应，哪里有错？？

Answer 1

你在listbox的ondbclick事件中添加如下代码：
测试:先增加一组数据
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ListBox1.Items.Add('A');
Memo1.Lines.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;