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

[messah]

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

[suwen88]

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_str

end;

[moqiyayan]

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

[江山易改]

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

[IORILI]

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

[hongqi162]

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

[messah]

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

[gossan]

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