Создание графического элемента управления
Создадим графический компонент: графическую кнопку с рамкой и надписью, реагирующую на события мыши. Назовем новый компонентный класс 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 | Просмотры: 496 | Нарушение авторских прав
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 |
|