checkbox為什麼不能改變其checked,解決放分!!!!!!!!!!!!!!!!!!!!!

[lastshooting]

我把checkbox放到AdvStringGrid後點擊它不能改變其cheched屬性，
各位高人幫忙，急
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TRect Rect;
CheckBox1->Parent = AdvStringGrid1;
Rect=AdvStringGrid1->CellRect(1,1);
CheckBox1->SetBounds(Rect.left,Rect.top,Rect.Width(),Rect.Height());
CheckBox1->Checked=false;

CheckBox1->OnClick= AdvStringGrid1Click;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AdvStringGrid1Click(TObject *Sender)
{
CheckBox1->Checked=!CheckBox1->Checked;
}

[lastshooting]

剛開始我可沒有用CheckBox1->Checked=!CheckBox1->Checked;也沒用的

[setdefault]

void __fastcall TForm1::AdvStringGrid1Click(TObject *Sender)
{
CheckBox1->Checked=!CheckBox1->Checked;
}
进入了一个死循环嵌套，不停的再调用AdvStringGrid1Click
如果想在Onclick里面更改Checked这样试试
void __fastcall TForm1::AdvStringGrid1Click(TObject *Sender)
{
CheckBox1->OnClick=NULL;
CheckBox1->Checked=!CheckBox1->Checked;
CheckBox1->OnClick= AdvStringGrid1Click;
}

[Libran]

去掉CheckBox1->OnClick的响应；

在CheckBox1的OnMouseDown事件里写：
CheckBox1->Checked = !CheckBox1->Checked;

[Sephil]

CheckBox1->OnClick= AdvStringGrid1Click;去掉就好了

[setdefault]

原因是OnClick时已经改变了checked属性，你又改回来当然看上去没有变了。哈哈

[constantine]

同意，