Delphi. Страница Standart. Васильев В.В - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

11
В примере работы 3 мы полностью оформим группу элементов Сер-
вис, добавив в нее две радиокнопки, управляющие фоном компонента
Memo1 и два флажка, влияющих на начертание и цвет текста полей формы.
Макет формы, после выполнения примера работы 3, показан на рис.4.
План примера 3
1-4. Добавление в группу Сервис по два
зависимых и независимых пере-
ключателя.
5-7. Создание обработчика события OnClick элемента Button2.
Пример работы 3: Подсказка
1. Добавьте в форму два компонента RadioButton
Страница Standard
2. Измените подписи на Белый фон поля и Сала-
товый фон поля
Свойство Caption
3. Добавьте в форму два компонента CheckBox
Страница Standard.
4. Измените подписи на Фиолетовый цвет и
Жирный шрифт.
Свойство Caption.
Некоторые свойства компонента CheckBox:
• Alignment
Положение текста (taLeftJustify – слева, taRightJustify – справа).
• AllowGrayed
Разрешение либо запрет использования состояния Не
знаю.
• Checked
Выбор флажка в схеме да-нет (True – да, False - нет).
• State
Выбор пользователя в схеме да-нет-не знаю (cbChecked - да,
cbGrayed – не знаю, cbUnchecked - нет).
Напишем обработчик события OnClick для кнопки Обновить данные,
изменяющий фон поля Memo1 и вид текста формы в зависимости от со-
стояния добавленных на форму радиокнопок и флажков.
5. Напишите
код обра-
ботки собы-
тия OnClick
компонента
Button2.
Для этого
выделите
Button2 и пе-
рейдите на
вкладку
Events в Ин-
p
rocedure TStandardTab.Button2Click(…);
begin
{Если флажок Фиолетовый цвет выбран, то основной цвет тек-
ста формы изменить на фиолетовый, в противном случае – на
черный}
if CheckBox1.State=cbChecked
then StandardTab.Font.Color:=clPurple
else StandardTab.Font.Color:=clBlack;
{Если флажок Жирный текст выбран, то начертание текста
формы изменить на полужирное, в противном случае – на обыч-
ное}
if CheckBox2.State=cbChecked
Рис.4. Макет формы после выполнения примера
работы 3.
Независимый переключатель CheckBox позволяет
пользователю объявить свое решение типа да-нет
или да-нет-не знаю. Если форма содержит не-
сколько компонентов CheckBox, то состояние ка-
ждого из них никак не связано с состояниями ос-
тальных.

Страницы