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.
![]() |