Ограничение проверенных элементов TCheckListBox на Delphi
Я хочу ограничить 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;