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

Question

我正在为Lazarus开发一个电子书管理器，但我遇到了一些我从未使用过的组件（TListBox）。在名为TListBox的{​​{1}}上，我有以下内容：

  

文学与小说
  浪漫
  计算机和互联网
  诗
  专业技术
  科幻与幻想
  传记和回忆录
  商业和金融
  儿童书籍   娱乐
  历史
  科学
  自助
  教科书和教育材料
  旅行
  西部片

当用户选择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; 

您可能也希望查看this webpage上的一些帖子！