onclick里面写checked:=true

写过了，没有反应

procedure TForm1.lvClieck(lv: TListView);
var
  p: TPoint;
  r: TRect;
begin
  p.X:=0;
  p.Y:=0;
  GetCursorPos(p) ;
  p:=lv.ScreenToClient(p) ;
  if Assigned(lv.Selected) then
  begin
    r:=lv.Selected.DisplayRect(drLabel);

    if (p.X > r.Left) and
       (p.Y > r.Top ) and (p.Y < r.Bottom ) then
    begin
      lv.Selected.Checked:=not lv.Selected.Checked;
    end;
  end;
end;