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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

10
Checked определяет выбрана радиокнопка или нет. Только у одного пе-
реключателя в группе свойство Checked имеет значение True, у всех
остальных это значение равно False.
Напишем обработчик, связывающий группу зависимых переключате-
лей с изменением фона формы.
6. Напишите код
обработки со-
бытия OnClick
компонента Ra-
dioGroup1 –
группы зависи-
мых переклю-
чателей Фон
формы
p
rocedure TStandardTab.RadioGroup1Click(…);
begin
{
Е
сли выбран определенный переключатель, форма
меняет свой цвет}
If RadioGroup1.ItemIndex=0
Then StandardTab.Color:=clSilver;
If RadioGroup1.ItemIndex=1
Then StandardTab.Color:=clAqua;
If RadioGroup1.ItemIndex=2
Then StandardTab.Color:=clYellow;
If RadioGroup1.ItemIndex=3
Then StandardTab.Color:=clRed;
end;
7. Проверьте работу программы
Run|Run
При выборе радиокнопки из радиогруппы Фон формы цвет фона фор-
мы должен изменятся.
8. Создайте на форме надпись Полоса
прокрутки (фон)
Свойство Caption элемента Label
9. Добавьте на форму элемент ScrollBar
Страница Standard
Стандартная для Windows полоса прокрутки ScrollBar обычно исполь-
зуется для визуализации управления значением числовой величины.
Некоторые свойства компонента ScrollBar:
• Kind
Ориентация элемента (sbHorizontal - горизонтальная, SbVertical -
вертикальная).
• Max
Максимальное значение диапазона изменения числовой величины.
• Min
Минимальное значение диапазона изменения числовой величины.
• Position
Текущее значение числовой величины.
Свяжем добавленный компонент с номером фона формы.
10. Установите максимальное значение диапа-
зона изменения номера формы
Свойство Max. Значение 3
11. Напишите код
обработки события
OnChange компо-
нента ScrollBar1 –
полосы прокрутки
Фон
procedure TStandardTab.ScrollBar1Change(…);
begin
{Присвоить текущее значение указателя
ScrollBar1 номеру активной радиокнопки в груп-
пе RadioGroup1}
RadioGroup1.ItemIndex:=ScrollBar1.Position;
end;
12. Сохраните результаты работы
File|Save
13. Проверьте работу программы
Run|Run
Ожидаемый результат при выполнении программы – это изменение
цвета фона формы при передвижении ползунка-индикатора скроллинга.

Страницы