大家好： 想請教一個問題。    視窗上的控制項： 如果要第一組「CP」全部check box打勾或取消，我的程式碼如下： 此例是「全部取消」：

void __fastcall TfrmICSetting::btnPICpAllOffClick(TObject *Sender)
{
if (cbPICp0->Visible == true) { cbPICp0->State = cbUnchecked; }
if (cbPICp1->Visible == true) { cbPICp1->State = cbUnchecked; }
if (cbPICp2->Visible == true) { cbPICp2->State = cbUnchecked; }
if (cbPICp3->Visible == true) { cbPICp3->State = cbUnchecked; }
if (cbPICp4->Visible == true) { cbPICp4->State = cbUnchecked; }
if (cbPICp5->Visible == true) { cbPICp5->State = cbUnchecked; }
if (cbPICp6->Visible == true) { cbPICp6->State = cbUnchecked; }
if (cbPICp7->Visible == true) { cbPICp7->State = cbUnchecked; }
if (cbPICpB->Visible == true) { cbPICpB->State = cbUnchecked; }
if (cbPICpD->Visible == true) { cbPICpD->State = cbUnchecked; }
}

問題： 1. 有沒有更簡單的方法阿？ 記得以前用VB時，如果重複貼上控制項， 它就會問你要不要做成陣列方式，但BCB沒有此功能。 >_< BTW: BCB有內建Radio Box Group的控制項，但就是沒有Check Box的。 我也知道有些套件有提供 Check Box Group的控制項， 但還是想一切以簡單為原則。 謝謝～ 發表人 - frederick 於 2003/10/13 17:03:02

獻醜了 下面的 class="code"> for(int i=0; i <Form1->ComponentCount; i ) if(Components[i]->ClassNameIs("TCheckBox")) { TCheckBox *MyCheckBox = (TCheckBox *)Components[i]; MyCheckBox->Checked = true; } 之前我PO的方式比較遜色,上面這個才是正解 謝謝 > 發表人 -

frederick 您好: 參考一下 http://delphi.ktop.com.tw/topic.php?topic_id=37352 剩下的就難不倒您囉 順心

Hi： 因我一個頁籤中共有三組相同控制項， 但名稱各不同，如第一個CP0~7、第二個EBTR0~8....... 所以好像用FindComponent比較合適些。 如果搜尋TCheckBox，會造成全部打勾 / 清除。 因我三組是用GroupBox框起來的， 是不是有些什麼指令、屬性可以把CheckBox歸類在各GroupBox？ 這樣一來我只要針對特定GroupBox內控制項做搜尋就好。 有沒有這種功能阿？ 發表人 - frederick 於 2003/10/13 17:08:48

frederick您好:

引言:是不是有些什麼指令、屬性可以把CheckBox歸類在各GroupBox？

那試試Tag屬性< > 順心< > ～我也是在學習的階段,回答的不好請您多多見諒與指教～

如圖所示（最上層） 最佳解決方法我想是taishyang第一次所提供的方法。用FindComponent的方式； 不過我說taishyang阿～您也不必急著把程式碼刪掉嘛 還好在第一時間就得獲您的解答。（因有看到您第一次的程式碼） 另外也感謝 >

frederick您好:

引言:不過我說taishyang阿～您也不必急著把程式碼刪掉嘛

因為您最先的需求,Robinon大哥的方式最適合 <>< face="Verdana, Arial, Helvetica">引言:另taishyang您說的tag方式或許改天在另文請教，因還不是很懂 不用改天囉,現在就有範例說明 如下圖示,將所要分成一 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=12175713&CC=272307"> 然後再試試下面的code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=0; i <Form1->ComponentCount; i++)
 if(Components[i]->ClassNameIs("TCheckBox")&&Components[i]->Tag==1)
 {
  TCheckBox *MyCheckBox = (TCheckBox *)Components[i];
  MyCheckBox->Checked = true;
 }
}

這樣一來就只有那一群會被全選 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

sorry...因我的ADSL又斷線了，故重複post >_< 發表人 - frederick 於 2003/10/14 10:44:23

引言: frederick您好:

引言:不過我說taishyang阿～您也不必急著把程式碼刪掉嘛

因為您最先的需求,Robinon大哥的方式最適合 <>< face="Verdana, Arial, Helvetica">引言:另taishyang您說的tag方式或許改天在另文請教，因還不是很懂

不用改天囉,現在就有範例說明 如下圖示,將所要分成一 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { for(int i=0; i <Form1->ComponentCount; i ) if(Components[i]->ClassNameIs("TCheckBox")&&Components[i]->Tag==1) { TCheckBox *MyCheckBox = (TCheckBox *)Components[i]; MyCheckBox->Checked = true; } } 這樣一來就只有那一群會被全選 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ < face="Verdana, Arial, Helvetica"> 哇～那我版面上共有100多個check box，那不就要一一指定< > 不過還是謝謝您喔～< > 發表人 - frederick 於 2003/10/14 10:41:27