ListView设置选中项的Checked报错**

qq127hb

ListView1.Selected.Checked := True;

shangxy

报告的什么错误？你是怎么操作的？请详细描述一下

qq127hb

我是在ListView1Click事件操作的，代码如下：
procedure TCT_BDZYXGL_DQBZRYXZ.ListView1Click(Sender: TObject);
var
   I : Integer;
   RowCount : Integer;
   tempListItem : TListItem;
begin
     if not pi_MulitSelect then
     begin
          for I := 0 to ListView1.Items.Count-1  do
          begin
               ListView1.Items[I].Checked := false;
          end;

          tempListItem := ListView1.Selected;
          tempListItem.Checked := True;
     end;
end;

zfang

加个判断吧
tempListItem := ListView1.Selected;
if tempListItem  <> nil then//增加的判断
  tempListItem.Checked := True;

或者你试试
tempListItem := ListView1.Items[0].Selected;

qq127hb

错误提示如下

zfang

请看4楼。