在Delphi上限制TCheckListBox的检查项

时间:2014-04-23 07:26:56

标签: delphi delphi-xe checklistbox tchecklistbox

我想限制一个TCheckListBox。 我希望只检查2个项目,并且所有未检查的项目将被禁用并变灰。 由于已选中/未选中的项目是动态的,因此我无法使用静态itemIndex。

这是我尝试过的,但我得到了“Out of chip bounds”错误。

我的CheckListBox的点击事件;

var
  NumberOfCheckedItems, I: Integer;
begin
  NumberOfCheckedItems := 0;
  for I := 0 to CkLst1.Count - 1 do
  begin
    if CkLst1.Checked[I] then
      NumberOfCheckedItems := NumberOfCheckedItems + 1;
  end;
  if NumberOfCheckedItems > 1 then
  begin
    CkLst1.Checked[I] := Enabled;
    CkLst1.Enabled := FALSE;
    CkLst1.AllowGrayed := TRUE;
  end
  else
  begin
    //no idea
  end;
end;

1 个答案:

答案 0 :(得分:6)

此方法应该完成工作

procedure DoCheckListBox( AChkLb : TCheckListBox; AMaxCheck : Integer );
var
  LIdx : Integer;
  LCheckCount : Integer;
begin
  // counting
  LCheckCount := 0;
  for LIdx := 0 to AChkLb.Count - 1 do
  begin
    if AChkLb.Checked[LIdx] then
      if LCheckCount = AMaxCheck then
        AChkLb.Checked[LIdx] := False
      else
        Inc( LCheckCount );
  end;
  // enable/disable
  for LIdx := 0 to AChkLb.Count - 1 do
    AChkLb.ItemEnabled[LIdx] := AChkLb.Checked[LIdx] or ( LCheckCount < AMaxCheck );
end;

<强>更新

您最好在TCheckListBox.OnClickCheck事件中调用此事件而不是OnClick事件。 双击可以影响检查状态,但不会调用OnClick。 只要检查状态发生变化,就会调用OnClickCheck