окей а с моим кодом что делать тогда я уже десять чекбоксов вывел в нем . мне что его удалять теперь или что??? этот кусок в него встроить
вот мой код полностью что с ним делать я не могу понять то что вы скинули выдает ошибку и куда там его лепить не понимаю.
TObject(COMCheckBox[1].GetObject):
begin
if not COMCheckBox[1].IsChecked then
begin
COMCheckBox[2].SetChecked(True);
COMCheckBox[3].SetChecked(True);
COMCheckBox[4].SetChecked(True);
COMCheckBox[5].SetChecked(True);
COMCheckBox[6].SetChecked(True);
COMCheckBox[7].SetChecked(True);
COMCheckBox[8].SetChecked(True);
COMCheckBox[9].SetChecked(True);
end else
begin
COMCheckBox[2].SetChecked(False);
COMCheckBox[3].SetChecked(False);
COMCheckBox[4].SetChecked(False);
COMCheckBox[5].SetChecked(False);
COMCheckBox[6].SetChecked(False);
COMCheckBox[7].SetChecked(False);
COMCheckBox[8].SetChecked(False);
COMCheckBox[9].SetChecked(False);
end;
end;
TObject(COMCheckBox[2].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[3].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[4].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[5].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[6].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[7].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[8].GetObject):
COMCheckBox[1].SetChecked(True);
TObject(COMCheckBox[9].GetObject):
COMCheckBox[1].SetChecked(True);
end;
end;