怎样实现listbox与edit的连接,即edit的内容随着listbox的改变而改变

Question

怎样实现listbox与edit的连接,即edit的内容随着listbox的改变而改变

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i,j:integer;
begin
  i:=form1.ListBox1.Items.Count;
  if i>0 then
  begin
    for j:= 0 to i-1 do
    begin
      if form1.ListBox1.Selected[j] then
        form1.Edit1.Text:=form1.ListBox1.Items.Strings[j];
    end;
  end;
end;

Answer 2

另外这时listbox的  form1.ListBox1.MultiSelect:=false;就是说不能多选才行

Answer 3

在ListBox的OnClick事件中写下:edit1.text:=listbox1.Items[listbox1.ItemIndex]

Answer 4

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