简单问题提问，急急急，祝大家节日快乐

Question

如何将listbox中选中的内容显示到edit中去。开发环境为DELPHI7，listbox中没有select属性啊。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 listbox_index:integer;
 listbox_str: string;
begin
listbox_index := listbox1.ItemIndex;
 listbox_str := listbox1.Items.Strings[listbox_index];
edit1.Text :=listbox_strend;

Answer 2

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    Edit1.text:=ListBox1.Items[ListBox1.ItemIndex];
end;

Answer 3

Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex ] ;

Answer 4

procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit1.Text :=listbox1.Items.Strings[listbox1.itemindex];
end;

Answer 5

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   edit2.text:=listBox1.Items[ListBox1.ItemIndex];
end;

Answer 6

那么为什么我一双击edit中就显示了listbox中的所有数据呢？

Answer 7

Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];