【Delphi】ListView +CheckBoxs 设置 限制 选几项的效果

procedure TOutUsbgrouplistFrm.lv_GroupMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var myitem:TListItem; MyHItTest:THitTests; i,j:Integer; begin

myitem:=lv_Group.GetItemAt(x,y);
MyHItTest:=lv_Group.GetHitTestInfoAt(x,y);
if MyHItTest <>[htonstateicon] then
begin
   exit;
end;

j:=0;
for i:= 0 to lv_Group.Items.Count-1 do begin
   if lv_Group.Items[i].Checked then
   begin
      Inc(j);
   end;
end;

for i:= 0 to lv_Group.Items.Count-1 do begin

   if (lv_Group.Items[i].Index =myitem.Index) then
   begin
       if myitem.Checked then Dec(j);

       if (not myitem.Checked) and (j=5) then
       begin
          Break;
       end;
       myitem.Checked:=not myitem.Checked;
   end;
end;

end;