我想在listbox选中一个条目后,在edit中显视该条目,如何实现?

Question

我想在listbox选中一个条目后,在edit中显视该条目,如何实现

Answer 1

onclick里写edit1.text:=listbox1.text;

Answer 2

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

Answer 3

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

Answer 4

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  edit1.Text:=Combobox1.Text;
end;

Answer 5

onclick里写,listbox的multiselect只为trueprocedure TForm1.ListBox1Click(Sender: TObject);
var
  I:integer;
begin
  for i:=0 to Listbox1.Items.Count-1 do
  begin
    if Listbox1.Selected[i]=true then
    begin
      edit1.Text:=ListBox1.Items[i];
    end;
  end;
end;

Answer 6

edit1.Text := ListBox1.Items.Strings[listbox1.itemIndex]

Answer 7

o 好多人啊~~
热闹onclick里写,listbox的multiselect只为trueprocedure TForm1.ListBox1Click(Sender: TObject);
var
  I:integer;
begin
  for i:=0 to Listbox1.Items.Count-1 do
  begin
    if Listbox1.Selected[i]=true then
    begin
      edit1.Text:=ListBox1.Items[i];
    end;
  end;
end;