Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Топ:
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Интересное:
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Дисциплины:
2017-06-02 | 271 |
5.00
из
|
Заказать работу |
|
|
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.
|
|
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!