Вопрос Програмирование на Delphi 10.

[вадим1]

Имеется четыре CheckBox. Все cbUnchecked. Как сделать сделать чтобы при двух любых включеных , два других становились недоступными (cbGrayed). или с кнопками.

 

[фвфыва]

прописывать кодом надо, там есть события клик или подобное, в нем и пишите, что активно при определенном событии, а что нет. Это очень просто, но даже такие вещи надо объяснять, а это уже обучение. Так что начните с азов, каких-то обучающих видео или лабораторных работ или другое.

 

[JKTU]

cnt:=0;
for i:=0 to ComponentCount-1 do
if Components is TCheckBox then
if (Components as TCheckBox).Checked then
inc(cnt);
if cnt=2 then
for i:=0 to ComponentCount-1 do
if Components is TCheckBox then
if not (Components as TCheckBox).Checked then
Components.Enabled := false;

 

[Кирилл12]

Завести глобальную переменную, которая будет считать количество чекнутых. Если она стала равна 2, то делаем для всех Enabled:=Checked, иначе всем ставим Enabled:=true

 

[Moskalew]

Напиши процедуру ОнКлик для каждого чекбокса, в которой проверяется доступность других чекбоксов, и ненужные в данный момент становятся недоступными через изменение соответствующих свойств