If RadioButton1.Checked

Then Form1.Caption := ‘Заголовок змінений’

Else If RadioButton2.Checked

Then Form1.Color := clRed

Else If RadioButton2.Checked

Then

Begin

Form1.Width := 600;

Form1.Height := 300;

end;

Поясніть, як виконуватиметься ця команда, якщо жоден з перемикачів не буде вибраний, і чому.

Розглянемо тепер, як можна використати прапорці для реалізації розгалуження.

Нехай, наприклад, нам потрібно в ході виконання проекту змінювати значення або тільки однієї з властивостей форми (або заголовок, або колір, або розміри), або кількох з них, або не змінювати значення жодної з них.

Для цього розмістимо на формі кнопку і три прапорці (рис. 2.52). При розміщенні прапорців на формі для кожного з них за замовчуванням автоматично встановлюється значення властивості Checked – False. Оскільки при виконанні проекту позначка жодного прапорця може бути не встановлена, то доцільно залишити такі початкові значення властивості Checked усіх прапорців.

Створимо процедуру для опрацювання події OnClick кнопки, і до її тексту помістимо такі три послідовні (не вкладені одна в одну) команди розгалуження: