### Создание окна настройки (продолжение).

Давайте переключимся на форму окна настройки. После переключения мы щёлкнем два раза на переключателе «новый», и в редакторе кода мы введём следующий код:

If CheckBox1.Checked

// проверка на «включенное» состояние первого флажка.

ThenForm2.SpeedButton1.Visible:=true

// если переключатель «включен» то кнопка отображается

ElseForm2.SpeedButton1.Visible:=false;

// иначе эта кнопка не отображается

Опять переключимся на форму окна настройки, и два раза щёлкнем на переключателе «открыть», и введём в редактор следующий код:

If CheckBox2.Checked

// проверка на «включенное» состояние второго флажка.

ThenForm2.SpeedButton2.Visible:=true

// если переключатель «включен» то кнопка отображается

ElseForm2.SpeedButton2.Visible:=false;

// иначе эта кнопка не отображается

Теперь опять переключимся на форму, и в редактор кода мы введём следующий код:

If CheckBox3.Checked

// проверка на «включенное» состояние третьего флажка.

ThenForm2.SpeedButton3.Visible:=true

// если переключатель «включен» то кнопка отображается

ElseForm2.SpeedButton3.Visible:=false;

// иначе эта кнопка не отображается

Опять переключимся на форму, два раза щёлкнем на переключателе «каскад», и в редактор введём следующий текст:

If CheckBox4.Checked

// проверка на «включенное» состояние четвёртого флажка.

ThenForm2.SpeedButton4.Visible:=true

// если переключатель «включен» то кнопка отображается

ElseForm2.SpeedButton4.Visible:=false;

// иначе эта кнопка не отображается

Список кода для остальных переключателей приведён в таблице

.

Компонент | Код
--- | ---
CheckBox5 | if CheckBox5.Checked then Form2.SpeedButton5.Visible:=true else Form2.SpeedButton5.Visible:=false;
CheckBox6 | if CheckBox6.Checked then Form2.SpeedButton6.Visible:=true else Form2.SpeedButton6.Visible:=false;
CheckBox7 | if CheckBox7.Checked then Form2.SpeedButton7.Visible:=true else Form2.SpeedButton7.Visible:=false;
CheckBox9 | if CheckBox9.Checked then Form2.SpeedButton9.Visible:=true else Form2.SpeedButton9.Visible:=false;
CheckBox10 | if CheckBox7.Checked then Form2.SpeedButton10.Visible:=true else Form2.SpeedButton10.Visible:=false;
CheckBox11 | if CheckBox11.Checked then Form2.SpeedButton11.Visible:=true else Form2.SpeedButton11.Visible:=false;
CheckBox12 | if CheckBox12.Checked then Form2.SpeedButton12.Visible:=true else Form2.SpeedButton12.Visible:=false;
CheckBox13 | if CheckBox13.Checked then Form2.SpeedButton13.Visible:=true else Form2.SpeedButton13.Visible:=false;
CheckBox14 | if CheckBox14.Checked then Form2.SpeedButton14.Visible:=true else Form2.SpeedButton14.Visible:=false;
CheckBox15 | if CheckBox15.Checked then Form2.SpeedButton15.Visible:=true else Form2.SpeedButton15.Visible:=false;
CheckBox16 | if CheckBox7.Checked then Form2.SpeedButton16.Visible:=true else Form2.SpeedButton16.Visible:=false;
CheckBox17 | if CheckBox17.Checked then Form2.SpeedButton5.Visible:=true else Form2.SpeedButton5.Visible:=false;
CheckBox18 | if CheckBox18.Checked then Form2.SpeedButton4.Visible:=true else Form2.SpeedButton4.Visible:=false;
CheckBox19 | if CheckBox19.Checked // проверка на «включенное» состояние переключателя then Form2.ToolBar1.Visible:=true // при соблюдении этого условия отображение первой панели инструментов else Form2.ToolBar1.Visible:=false; // при несоблюдении этого условия – скрытие.
CheckBox20 | if CheckBox20.Checked then Form2.ToolBar2.Visible:=true else Form2.ToolBar2.Visible:=false;

После этого давайте щёлкнем на переключателе CheckBox1, и в свойстве Checked выберем значение True, для остальных переключателей список значения свойства приведено в таблице.

Имя компонента | Значение свойства Checked
--- | ---
CheckBox1 | True
CheckBox2
CheckBox3
CheckBox4
CheckBox5
CheckBox6
CheckBox7
CheckBox8
CheckBox9
CheckBox10
CheckBox11
CheckBox12
CheckBox13
CheckBox14
CheckBox15
CheckBox16
CheckBox17
CheckBox18
CheckBox19 | false

<<Назад | Далее>>