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

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

2025-01-02 18:39:43

推荐回答（5个）

回答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;

回答2：

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

回答3：

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

回答4：

listbox1.Items[listbox1.ItemIndex]

回答5：

lst1.Items[lst1.ItemIndex]