delphi - 我需要限制我在 CheckListBox 中的选择

Question

这个问题已经有答案了:

Limiting checked items of TCheckListBox on Delphi (1 个回答)

已关闭 6 年前。

我需要限制我在 CheCkListBox 中的选择。从列表中选择的选项不超过两个。怎么做？

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of

    0: begin
       // No more than two selections from the list
       end;


    1: begin
        // Choice not limited
       end;
  end;
end;

Answer 1

获取已检查项目的数量:

function GetCheckedCount(const Cl : TCheckListBox) : Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 0 to Cl.Count - 1 do
  begin
    if Cl.Checked[i] then
      inc(Result);
  end;
end;

CheckListBox OnClickCheckEvent:

procedure TForm13.CheckListBox1ClickCheck(Sender: TObject);
const // or global variable or ...
 MaxCheckedItems = 2;
begin
   if GetCheckedCount(CheckListBox1) > MaxCheckedItems then
     CheckListBox1.Checked[CheckListBox1.ItemIndex] := False;
end;