TListView 的 Checked 属性 互斥选择

在帮同事解决问题时，遇到了一点小坎坷，呵呵

那就是 TListView 组件 启用 CheckBox 设定时 CheckBox 框框 在选中的时候 并不触发 Selected

所以解决办法是：

1、取得 鼠标的位置[相对坐标]

2、清空所有 Item 的Checked 属性

3、通过 GetItemAt ( X+const_value,Y) ;来选择节点并辅值给 Selected

//code

int X,Y ;

void __fastcall TForm1::ListView1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    this->X = X ;
    this->Y = Y ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1Click(TObject *Sender)
{

      TListItem* pli = this->ListView1->GetItemAt(X+15,Y) ;
      if ( pli ==NULL ) return ;
      for ( int i = 0 ; i < this->ListView1->Items->Count ; ++i )
      {
         this->ListView1->Items->Item[i]->Checked = false ;
      }
      pli->Checked = true ;
      this->ListView1->Selected = pli ;

}