Question

delphi中listbox，如何双击删除选中的一项

delphi中listbox，如何双击删除选中的一项，并把删除的这一项赋值给edit1.text。
谢谢了。

Answer 1

你可以在listbox的双击事件中写
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit1.text:=ListBox1.Items.Strings[ListBox1.ItemIndex];
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;