Приложение 1. Свойство Color. Тип TColor.
Лабораторная работа № 7 .
Тема: Класс TControl.
Цель: Познакомиться с классом TControl. Рассмотреть работу наиболее важных свойств данного классаl, а также его потомков.
Класс TControl является базовым абстрактным классом для всех визуальных компонентов Delphi, т.е. для компонентов, которые пользователь может видеть и которыми манипулирует во время выполнения приложения. Все они имеют общие свойства, методы и события, определяющие место их размещения, расцветку, реакцию на нажатие клавиш или кнопок мыши и т.д.
Рассмотрим наиболее важные свойства класса TControl:
| Свойство | Тип | Описание |
| AutoSize | Boolean | Определяет, будет ли высота и ширина элемента автоматически адаптироваться к размеру символов текста. |
| Caption | String | Строка текста, идентифицирующая компонент для пользователя. Обычно это надпись на метке, кнопке и др. компонентах. |
| Color | TColor | Определяет цвет фона компонента. Для более полной информации см. Приложение 1. |
| Cursor | TCursor | Определяет вид курсора мыши, при попадании его в область компонента. |
| Enabled | Boolean | Определяет, реагирует ли компонент на события, связанные с мышью, клавиатурой и таймером. |
| Font | TFont | Определяет атрибуты шрифта. Для более полной информации см. Приложение 2. |
| Height | Integer | Высота компонента в пикселях |
| Hint | String | Определяет текст подсказки, которая появляется при остановке курсора мыши на объекте. Для появления подсказки необходимо также задать свойство ShowHint. |
| Left | Integer | Координата левого края компонента в пикселях |
| Name | TComponentName :String | Определяет имя компонента для обращения к нему. |
| ParentColor | Boolean | Определяет, что для компонента будет заимствован цвет родительского компонента (компонента, который содержит данный компонент, например, формы) |
| ParentFont | Boolean | Включает и выключает использование шрифта родительского компонента. |
| PopUpMenu | TPopUpMenu | Определяет связанный с компонентом объект всплывающего меню. Нами рассмотрено будет позже. |
| ShowHint | Boolean | Разрешает или запрещает показывать быструю подсказку. |
| Text | String | Текст, связанный с данным компонентом. Для объекта TEdit это текст, набранный пользователем. |
| Top | Integer | Координата верхнего края компонента в пикселях. |
| Visible | Boolean | Делает компонент видимым или невидимым. |
| Width | Integer | Горизонтальный размер компонента в пикселях. |
|
|
|
Для потомков объекта TControl (потомками объекта TControl являются все визуальные объекты, например, Button, Label, и др.) определены также следующие события (рассмотрим только основные из них):
| Событие | Описание |
| OnClick | Событие при щелчке на компоненте либо нажатии кнопки |
| OnDblClick | Событие при двойном щелчке на компоненте |
| OnMouseDown | Событие при нажатии кнопки мыши над объектом |
| OnMouseMove | Событие при перемещении указателя мыши над объектом |
|
|
|
Пример 1: Создать программу, которая при нажатии кнопки изменяет цвет метки.
Обработчик события onClick кнопки Button1 можно записать следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
Begin
label1.Color:=clTeal;
end;
Пример 2: Создать программу, которая при нажатии кнопки увеличивает шрифт метки:
Обработчик события onClick кнопки Button1 можно записать следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
Begin
label1.Font.Size:= label1.Font.Size+1;
end;
Контрольные вопросы:
- Для чего служат следующие свойства: Caption, Color, Text, Font, Height, Width, Hint, ShowHint, Cursor, Enabled, Visible, Top, Left, Name.
Задания к лабораторной работе №7:
1. Организовать управление размером шрифта метки с помощью кнопок (одна кнопка – увеличивает шрифт, другая – уменьшает). Кнопки снабдить всплывающими подсказками. Изменить курсор мыши над кнопками.
2. Создать три кнопки: при нажатии на первую метка становится невидимой, при нажатии на вторую – видимой, при нажатии на третью – шрифт метки увеличивается в 3 раза. Изменить курсов над кнопками.
3. Создать три кнопки. При нажатии на первую кнопку метка закрашивается в серебряный цвет, при нажатии на вторую - текст метки становится пурпурным. Третья кнопка возвращает метку в исходное состояние. Метку снабдить всплывающими подсказками.
|
|
|
4. Организовать управление положением метки на форме. При нажатии на одну кнопку – метка сдвигается влево, при нажатии на вторую кнопку – метка сдвигается вправо. Объекты снабдить всплывающими подсказками. Добавить объект, который выполняет операцию(какую, придумать самостоятельно) при двойном щелчке мыши, объект снабдить всплывающей подсказкой об выполняемой операции .
Приложение 1. Свойство Color. Тип TColor.
Свойство Color определяет цвет фона компонента. Значение цвета может задаваться как значение, определяющее интенсивности красного, зеленого и синего цветов в формате RGB, или равным одной из перечисленных ниже предопределенных в Delphi констант.
Дата добавления: 2018-11-24; просмотров: 272; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!