TCheckBox的OnClick()被自動執行 |
|
答題得分者是：stellos
|
|
Just4U
初階會員   發表：38 回覆：56 積分：28 註冊：2002-03-27 發送簡訊給我 |
我有一個form(TSetup1Form), 上面只有2個TCheckBox(CheckBox1, CheckBox2), 每次顯示這個form時, CheckBox2的OnClick()都會被自動執行, 而CheckBox1不會, 請問這是什麼情形? 如何解決呢? 謝謝!!! void __fastcall TSetup1Form::FormShow(TObject *Sender)
{
CheckBox1->Checked = check1;
CheckBox2->Checked = check2;
}
//---------------------------------------------------------------------------
void __fastcall TSetup1Form::CheckBox1Click(TObject *Sender)
{
check1 = !CheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TSetup1Form::CheckBox2Click(TObject *Sender)
{
check2 = !CheckBox2->Checked;
}
|
|
stellos
中階會員 發表：24 回覆：84 積分：51 註冊：2004-06-08 發送簡訊給我 |
加個旗標示試試
bool checkflag; void __fastcall TSetup1Form::FormShow(TObject *Sender)
{
checkflag=true;
CheckBox1->Checked = check1;
CheckBox2->Checked = check2;
checkflag=false;
}
//---------------------------------------------------------------------------
void __fastcall TSetup1Form::CheckBox1Click(TObject *Sender)
{
if(checkflag) return;
check1 = !CheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TSetup1Form::CheckBox2Click(TObject *Sender)
{
if(checkflag) return;
check2 = !CheckBox2->Checked;
}
|
|
blk5743
高階會員 發表：34 回覆：371 積分：236 註冊：2003-11-17 發送簡訊給我 |
發表時間：2005-03-01 15:51:45
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-05-12 14:25:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |