gpt4 book ai didi

delphi - Delphi 上限制 TCheckListBox 的选中项

转载 作者:行者123 更新时间:2023-12-03 15:46:34 27 4
gpt4 key购买 nike

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

这是我尝试过的,但出现“超出芯片范围”错误。

我的 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;

最佳答案

这个方法应该可以完成工作

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

关于delphi - Delphi 上限制 TCheckListBox 的选中项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23237636/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com