TListView 的 Checked 属性互斥选择

最新推荐文章于 2025-10-07 14:33:12 发布

原创最新推荐文章于 2025-10-07 14:33:12 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#listview #null

博主在帮同事解决问题时，遇到TListView组件启用CheckBox设定时，选中CheckBox不触发Selected的问题。给出的解决办法是取得鼠标相对坐标，清空所有Item的Checked属性，通过GetItemAt选择节点并赋值给Selected，还给出了相应代码。

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

那就是 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 ;

}