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 ;

}