cb016 「ListBox」（04/09/14 Tue）

えっとリストを扱います。cb008のFileListBoxと似たようなモンです。コンポーネントタブのStandardにあります。

☆リストに項目を追加☆

まぁソースです。

int i;
for (i=0;i<10;i++){
ListBox1->Items->Add("アイテム " + IntToStr(i));
}

まぁループ使ってちゃっちゃとAddします。

☆選択項目を表示☆

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
int i;
for (i=0;i<ListBox1->Items->Count;i++){
if (ListBox1->Selected[i]){
Label1->Caption = (ListBox1->Items->Strings[i]+ " を選択しました");
}
}
}

「リストをクリックした時に、選択されている項目があるか無いかを全リスト検索し、あれば表示する」といったところです。めんどくせぇ。