Upload your code if you want to, some nice guy will debug your code.

http://fileho.com/download/4c6444517718/BCB1.rar.html
我放上來了
有疑問的表單名字為Test3
請各位前輩不吝指正~謝謝
PS：此外不知是否能解決TabSheet1的選項選擇後.....才能接續換到TabSheet2作答之問題
謝謝

===================引 用 文 章===================
Upload your code if you want to, some nice guy will debug your code.

1.把 test3 的 Form 在 Project->Options 從 Auto-Create Form 改成 Available Form 之後
//---------------------------------------------------------------------------
void __fastcall TName_2::Button3Click(TObject *Sender)
{
// Name_2->Hide();
{
Test_3->ShowModal();
__finally
Test_3->Free();
TRadioButton *aButton;

switch (aButton->Tag)
{
case 1: Edit1->Text= 5;break;
case 2: Edit1->Text= 4;break;
case 3: Edit1->Text= 3;break;
case 4: Edit1->Text= 2;break;
case 5: Edit1->Text= 1;break;
case 6: Edit2->Text= 5;break;
case 7: Edit2->Text= 4;break;
case 8: Edit2->Text= 3;break;
case 9: Edit2->Text= 2;break;
case 10: Edit2->Text= 1;break;
case 11: Edit3->Text= 5;break;
case 12: Edit3->Text= 3;break;
case 13: Edit3->Text= 1;break;
case 14: Edit4->Text= 5;break;
case 15: Edit4->Text= 4;break;
case 16: Edit4->Text= 3;break;
case 17: Edit4->Text= 2;break;
case 18: Edit4->Text= 1;break;
case 19: Edit5->Text= 5;break;
case 20: Edit5->Text= 3;break;
case 21: Edit5->Text= 1;break;
case 22: Edit6->Text= 5;break;
case 23: Edit6->Text= 4;break;
case 24: Edit6->Text= 3;break;
case 25: Edit6->Text= 2;break;
case 26: Edit6->Text= 1;break;
case 27: Edit7->Text= 5;break;
case 28: Edit7->Text= 4;break;
case 29: Edit7->Text= 3;break;
case 30: Edit7->Text= 2;break;
case 31: Edit7->Text= 1;break;
}
}
//---------------------------------------------------------------------------


{
}
//---------------------------------------------------------------------------

{
int Count;

pTabSheet = ((TPageControl *)Sender)->ActivePage;
{
{
{
return;
}
}
//---------------------------------------------------------------------------

Stallion大
感謝您百忙之中抽空看我的作業Q_Q
也修正很多程式碼
但我有一項地方看不懂
{
}
是直接在cpp輸入就好
以及為什麼只要TabSheet1填入答案後~其他TabSheet都會預設答案了
再次謝謝您:p

使用 Object inspector 產生 Test_3 Form 的 OnClose 事件即可。

那請問為什麼只要TabSheet1填入答案後~其他TabSheet都會預設答案了 <之前就會這樣了>
的確粉詭異@@
謝謝
===================引 用 文 章===================
使用 Object inspector 產生 Test_3 Form 的 OnClose 事件即可。

應該是你所有的Radio Button共用一個On Click的事件所致。
提供一個思考改善的方向：
1.維持每個 RadioButton 的 Tag值，但是把所有的On Click事件關連拿掉。
2.在經過每個Page裏面的RadioButton經過檢查都已經選擇了後，在選擇最後一頁時，運用一個類似OnChanging裏面寫法，應用Loop把所有的TEdit裏面的值再來加總算出結果。

好的~Stallion大大
感激不盡

===================引 用 文 章===================
應該是你所有的Radio Button共用一個On Click的事件所致。
提供一個思考改善的方向：
1.維持每個 RadioButton 的 Tag值，但是把所有的On Click事件關連拿掉。
2.在經過每個Page裏面的RadioButton經過檢查都已經選擇了後，在選擇最後一頁時，運用一個類似OnChanging裏面寫法，應用Loop把所有的TEdit裏面的值再來加總算出結果。