各位大大您好, 請問一下我需要在程式中視情況將所要被選到的項目出現 在選單之中(有一個類似RadioButton的東西, 後面接敘述), 也就是說這一個選單中要被選的東西不是永遠固定的, 會視情況增減或改變項目敘述, 而且可以被複選, 所以想請問一下這樣的一個功能該從何處下手, 謝謝各位大大!!

引言: 各位大大您好, 請問一下我需要在程式中視情況將所要被選到的項目出現 在選單之中(有一個類似RadioButton的東西, 後面接敘述), 也就是說這一個選單中要被選的東西不是永遠固定的, 會視情況增減或改變項目敘述, 而且可以被複選, 所以想請問一下這樣的一個功能該從何處下手, 謝謝各位大大!!

aredfish 你好: 因為你的問題的標題和問題的內文~~好像不太一樣 所以~~我只能用猜的~~希望以下的 > < class="code"> TStringList *stBuf=NULL; void __fastcall TForm1::Button1Click(TObject *Sender) { int i=0; stBuf->Add("Check0"); stBuf->Add("Check1"); stBuf->Add("Check2"); stBuf->Add("Check3"); stBuf->Add("Check4"); CheckListBox1->Clear(); for(i=0; iCount; i ) { CheckListBox1->AddItem(stBuf->Strings[i], NULL); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { int i=0; Memo1->Clear(); for(i=0; iCount; i ) { if(CheckListBox1->Checked[i]) { Memo1->Lines->Add(stBuf->Strings[i] " is checked"); } else { Memo1->Lines->Add(stBuf->Strings[i] " is not checked"); } } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { stBuf=new TStringList; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormDestroy(TObject *Sender) { delete stBuf; } -- Enjoy Researching & Developing --

謝謝您的回答, 真的解決了我很多問題, 您上面的程式中有一行應該要改成 CheckListBox1->Items->Add(stBuf->Strings[i]); 再請問一下, 我應該要如何得到這個CheckListBox中有多少個項目 因為我想要刪除掉Box裡所有的項目, 我初步的想法是利用 CheckListBox1->Items->Delete(i) 來一個一個刪除掉項目, 但這樣一來我就必須先得到Item數目再指定給i來一個一個刪除, 而且....我剛try用Delete去跑 結果在執行時都會發生錯誤, 發生錯誤的方式就像是給了一個超出邊界的矩陣一樣。 還有一個問題, 我應該要怎麼寫才能得到: stBuf->Add("Check %d",i); "這一行是錯的"... 我的目的是前面的Check是固定的, 但後面的項目號碼可以變, 因為這樣一來 我就可以控制產生的Item數目, 而且每個Item的內容以可以不同。 最後一個問題, 當我查Help中的TCheckListBox項目時, 我可以看到他有Item這個函數, 但是他所接下來的Add功能是從哪來的呢?? 我應該要如何思考"繼承的路徑" 才能達到善用Help的目的呢?? 問了一大堆的問題, 非常謝謝各位大大不賃指教。

引言: 謝謝您的回答, 真的解決了我很多問題, 您上面的程式中有一行應該要改成 CheckListBox1->Items->Add(stBuf->Strings[i]); 再請問一下, 我應該要如何得到這個CheckListBox中有多少個項目 還有一個問題, 我應該要怎麼寫才能得到: stBuf->Add("Check %d",i); "這一行是錯的"... 最後一個問題, 當我查Help中的TCheckListBox項目時, 我可以看到他有Item這個函數, 但是他所接下來的Add功能是從哪來的呢?? 我應該要如何思考"繼承的路徑" 才能達到善用Help的目的呢?? 問了一大堆的問題, 非常謝謝各位大大不賃指教。

aredfish 你好: 請參考以下的做法: (1)CheckListBox1->Count (2)stBuf->Add("Check" IntToStr(i)); (3)Items不是函數(是property)他的型態是TStrings(所以你應該查詢TStrings) -- Enjoy Researching & Developing --

RaynorPao大大,我实验了一下您的代码,好象有点问题哦,

void __fastcall TForm1::Button2Click(TObject* Sender)
{
        int i = 0;
        Memo1->Clear();            for( i = 0; i < CheckListBox1->Items->Count; i  ) 
        {
            if(CheckListBox1->Checked[i])
            {
                Memo1->Lines->Add(strBuf->Strings[i]   " is Checked");
            }
            else
            {
                Memo1->Lines->Add(strBuf->Strings[i]   " is No Checked");
            }
        }
}

应该是CheckListBox的Items下才有count,不要生气哈,我又钻牛角尖了 人生在勤，不索何获？

------
人生在勤，不索何获？