Question

Delphi中怎样获取ListBox选中的一个值？

我要获取获取ListBox选中的一个值，具体方法。。

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('item1');
ListBox1.Items.Add('item2');
ListBox1.Items.Add('item3');
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);
end;

Answer 2

ListBox1.Items[ListBox1.ItemIndex]
不过要判断拿镇ItemIndex是否为-1,-1的余信时候为没有竖敏轮选中任何项,0为第一项

Answer 3

ListBox1.Items.Strings[ListBox1.ItemIndex] 获取选中行的内容

Answer 4

listbox1.Items[listbox1.ItemIndex]

Answer 5

lst1.Items[lst1.ItemIndex]