АкушерствоАнатомияАнестезиологияВакцинопрофилактикаВалеологияВетеринарияГигиенаЗаболеванияИммунологияКардиологияНеврологияНефрологияОнкологияОториноларингологияОфтальмологияПаразитологияПедиатрияПервая помощьПсихиатрияПульмонологияРеанимацияРевматологияСтоматологияТерапияТоксикологияТравматологияУрологияФармакологияФармацевтикаФизиотерапияФтизиатрияХирургияЭндокринологияЭпидемиология

Создание графического элемента управления

Создадим графический компонент: графическую кнопку с рамкой и надписью, реагирующую на события мыши. Назовем новый компонентный класс TGraphicButton. Для компонента GraphicButton создадим следующие свойства:

· ButtonColor – цвет кнопки;

· BorderColor – цвет рамки кнопки;

· ButtonText – надпись кнопки;

· OverColor – цвет кнопки при наведении указателя мыши.

Объявим унаследованные свойства-события:

· OnClick;

· OnMouseDown;

· OnMouseMove;

· OnMouseUp.

Компоненты Delphi хранятся в специальных динамических библиотеках (пакетных библиотеках). Создадим новый проект пакетной библиотеки. Для этого выберем меню File > New > Other. В появившемся окне диалога выбора типа проекта (Рис. 1), выберем значок пакета Package.

Рис.1. Создание нового пакета.

Появится окно нового пакета (Рис. 2). Сохраним его как NPackage.dpk в папку Borland\Delphi7\Lib. В этой папке обычно хранятся дополнительные библиотеки компонентов.

Рис. 2. Пакет NPakage.dpk

Теперь закроем пакет (меню File > Close All), и перейдем к созданию модулю нового компонента (Component > New component). Появится окно диалога мастера модуля компонента (Рис. 3).

Рис. 3. Окно диалога мастера модуля компонента.

В поле Ancestor type указываем имя класса-предка TGraphicControl (базовый класс для создания графических элементов управления). В поле Class name указываем имя нового класса TGraphicButton. В поле Palette page укажем новую страницу для палитры компонентов NEWCOMPONENTS. В поле Unit file name система автоматически сформирует имя модуля компонента, для сохранения его по адресу Borland\Delphi7\Lib\. Подтвердим создание модуля нажатием кнопки «Ok», и на экране появится редактор кода с модулем нового компонента (Рис. 4). Сохраним модуль, выбрав File > Save или нажав Ctrl+S.

Объявим внутренние хранилища (поля) значений создаваемых свойств и методы записи значений, создаваемых свойств в частном разделе объявления структуры класса:

…

Type

TGraphicButton = class (TGraphicControl)

Дата добавления: 2015-09-18 | Просмотры: 457 | Нарушение авторских прав