Надо было делать круглыми а не квадратными варианты выбора. Так как в квадратных можно ставить несколько галок одновременно))))
раскрыть ветку (5)
procedure CheckBoxOnClick (Sender: TObject);
begin
if CheckBox1.Checked then
begin
CheckBox1.Checked:= False;
CheckBox2.Checked:= True;
end
else
begin
Checkbox2.Checked:= False
CheckBox1.Checked:= True;
end
end;
begin
if CheckBox1.Checked then
begin
CheckBox1.Checked:= False;
CheckBox2.Checked:= True;
end
else
begin
Checkbox2.Checked:= False
CheckBox1.Checked:= True;
end
end;
раскрыть ветку (2)