在CheckListBox中怎样单选其中的一行,该怎么解决

在CheckListBox中怎样单选其中的一行
在CheckListBox中怎样单选其中的一行,
其余的行不能被选,也就是CheckListBox中只能有一行被选中

高手快进

[解决办法]
诚如楼上所说，改用RadioGroup就好了，但是如果你坚持要用CheckListBox那也可以

void __fastcall TMainForm::CheckListBox1ClickCheck(TObject *Sender)
{
int index = dynamic_cast <TCheckListBox *> (Sender)-> ItemIndex;
for(int i=0;i <CheckListBox1-> Count;i++)
{
if(i!=index)
{
CheckListBox1-> Checked[i] = false;
}
}
}