IF RudioButton1.Checked THEN ShowMessage ('1 вкючен ')

ELSE

ShowMessage ('2 вкючен ')

END;

Объединение переключателей в группы

Переключатели можно объединять в объектах-контейнерах подобных GroupBox, ScrollBox, Panel. Объект-контейнер становится родителем для внутренних элементов, и при его перемещении все внутренние элементы так же перемещаются. Чтобы создать объект-контейнер – его сначала помещают на форму. И когда он находится в фокусе, в него добавляют все нужные компоненты.

 

 

 

 

Использование компонента RadioGroup

Этот компонент, в отличие от других объектов контейнеров, не дает возможности выбора переключателей. В RadioGroup переключатели создаются путем определения имени в редакторе String List Editor свойства Items Object Inspector. Каждая вводимая стока будет определять новый переключатель. После определения групп переключателей значение свойства ItemIndex определяет какой переключатель выбирается во время выполнения. Наример:

procedure TForm1.Button1Click(Sender: TObject);

Begin

if RadioGroup1.ItemIndex=0 then

ShowMessage('!!!!!!!')

Else

ShowMessage('????????')

end;

Примечание: в RadioGroup1.ItemIndex=0 значение 0 определяет порядковый номер переключателя, кторые начинаются с 0.

 

Полосы прокрутки ScrollBar

 

ScrollBar является многоцелевым элементом управления, ипользуемый для прокрутки окон и других элементов управления. Многие компоненты уже имеют встроенные полосы прокрутки, например, ListBox.

 

Пример использования полос прокрутки ScrollBar

1. Создать новое приложение через меню File и команду New Aplication.

2. На форме поместить:

· 4 Label

· 2 Edit

· 1 Panel

· 1 ScrollBar

3. Для Label1 свойство Caption – ‘RED’

4. Для Label2 свойство Caption – ‘’

5. Для Label3 свойство Caption – ‘GREEN’

6. Для Label4 свойство Caption – ‘BLUE’

7. Для ScrollBar в Object Inspector свойство МАХ поставить равным 255, а свойство MIN – 0.

8. В Object Inspector для обоих Edit свойства Text поставить равным 100.

9. Выделить на форме ScrollBar и в Object Inspector открыть вкладку Events и дважды кликнуть по методу OnScroll. В редакторе, в соответствующих местах, набрать следующий текст:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;

var ScrollPos: Integer);

Var

Red, Green, blue: integer;

Begin

{ Set red intensity to current scroll bar value

Установить интенсивность красного в текущее значение полосы прокрутки }

Red:= ScrollPos;

{ Read other colors from edit components

Считать другие цвета из компонентов Edit }

Green:= StrToInt (Edit1.Text);

Blue:= StrToInt (Edit2.Text);

{ Set form color to current RGB value

Установить цвет формы в текущее значение RGB}

Form1.Color:= RGB(Red, Green, Blue);

{ Set label caption to current scroll bar value which represent also the current red intensity }

{Установить заголовок метки в текущее значение полосы прокрутки, которое представляет также текущую интенсивность красного}

Label2.Caption:= IntToStr (ScrollPos);

end;

 

Примечание: интенсивность красного цвета определяется параметром ScrollPos, который передает в обработчик событий значение события OnScroll всякий раз при его генерации. Цвет формы устанавливается в текущий от трех значений цветов командой RGB.