delphi - TListBox の選択された行の内容を変数に格納する

Question

Lazarus で電子ブック マネージャーを開発していますが、使用したことのないコンポーネントで問題が発生しています ( TListBox)。TListBox名前付きには、CategoryList次のアイテムがあります。

文学とフィクション
ロマンス
コンピュータとインターネット
詩
専門的かつ技術的な
サイエンス フィクションとファンタジー
伝記と回顧録
ビジネスと金融
児童書
娯楽
歴史
科学
自助
教科書と教材
旅行
西部劇

ユーザーがアイテムを選択したときに、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; 

このウェブページのいくつかの投稿もご覧になることをお勧めします。