delphi - 将 TListBox 的选定行的内容存储在变量上

Question

我正在 Lazarus 上开发一个电子书管理器，但是我在使用一个我从未使用过的组件时遇到了一些问题（TListBox）。在TListBoxnamedCategoryList上，我有这些项目：

文学与小说
爱情
电脑与网络
诗歌
专业与技术
科幻与奇幻
传记与回忆录
商业与金融
童书
娱乐
历史
科学
自助教材 与
教材
西部片

当用户在 上选择一个项目时CategoryList，我想将它存储在一个变量中，但我该怎么做呢？

Answer 1

如果你想要索引：

index := CategoryList.ItemIndex;

如果你想要字符串：

str := CategoryList.Items[CategoryList.ItemIndex];

要捕捉用户选择某物的那一刻，您需要注册一个 OnChange 事件：

CategoryList.OnChange := CategoryListChange;

CategoryListChange 是一个事件监听器：

procedure TMyForm.CategoryListChange(Sender: TObject);
begin
  // do something with CategoryList.Items[CategoryList.ItemIndex]
end; 

您可能还想查看此网页上的一些帖子！