5. Разработка ресурсов для компоненты

Для этого воспользуйтесь редактором ресурсов Tools\Image Editor и создайте в нем новый файл ресурсов для компоненты через меню File\New\Component Resource File (.dcr). Далее выберите раздел Resource\New\Bitmap и установите размер рисунка 24х24 пиксела и цвет VGA (16 colors). Затем измените имя рисунка на имя компоненты TRANDOM (обязательно прописными буквами!). Затем выберите раздел Resource\Edit и создайте нужный рисунок с помощью стандартных инструментов рисования (как в Paint). И последнее, сохраните файл в каталоге, в котором находится модуль с нашим компонентом, под тем же именем, что и у модуля. Теперь осталось только произвести компиляцию и установку компоненты на нужную страницу Палитры компонентов.

6. Установка компоненты

Для инсталляции выберем пункт Install Component... меню Component и если надо исправим ошибки. В появившемся окне Install Component:

• в поле Unit file name задайте путь к pas-файлу вашего компонента,

• в поле Package file name - имя пакета, в который будет установлен наш компонент.

Этот пакет уже должен существовать (по умолчанию все новые компоненты добавляются в пакет dclusr.dpk). Если вы хотите установить компонент в новый пакет, то воспользуйтесь в этом окне вкладкой Into new package.

В появившемся окне Package перечислены все компоненты пакета, в который мы записываем наш компонент. Выбираем команду Compile для компиляции и установки пакета. Сохраним наш пакет и закроем окно.

7. Испытание компоненты

На вкладке My Components появится наша компонента. Создадим новый проект. Выберем компоненту Random и кнопку Button и разместим их на форме. В Инспекторе объектов задайте значения свойств min и max компоненты Random.

На вкладке Events Инспектора объектов присутствует наше событие OnGetMax. Запишем туда код:

procedure TForm1.Random1GetMax (Sender: TObject);

begin

Form1.Caption:='Event GetMax';

end;

Для кнопки выберем событие OnClick и запишем код:

procedure TForm1.Button1Click (Sender: TObject);

begin

Random1.GetNumber;

end;

Теперь запустим приложение и проверим работоспособность компоненты.

8. Редактирование компоненты

В меню Component выберем пункт Install Package. В окне появится список библиотек. Выберем Borland User Components. По кнопке Edit появится окно Package со списком файлов. В Contains добавим наш модуль Random.pas по кнопке Add. Теперь можем добавить еще какие-нибудь свойства, методы и события, откомпилировать по кнопке Compile и сохранить пакет. Для удаления компоненты выбираем команду Remove.

9. Создание справочной службы помощи

Справочная служба помощи может состоять из нескольких типов:

1. При наведении на объект вывод подсказки

2. При нажатии клавиши F1 вывод окна справочной службы Windows

Первый способ реализуется через свойства видимых элементов Hint:String и ShowHint:Boolean, регулирующие появление и содержание ярлычка– небольшого справочного окна возле элемента, на котором остановился курсор. Чтобы отобразить длинное сообщение в несколько строк, его нужно поместить в строку Hint с разделителем строк #13 на этапе выполнения программы. Например, для кнопки Button1 можно вставить подсказку при возникновении события FormCreate:

procedure TForm1.FormCreate (Sender: TObject);

begin

Button1.Hint:=’Эта кнопка’#13’завершает работу программы.’;

end;

Для второго способа необходимо использовать специально созданные файлы помощи (*.hlp). Все видимые компоненты содержат свойство HelpContext:Integer, с помощью которого компонент привязывается к контекстно-чувствительной справочной службе. В это свойство помещаем идентификатор раздела Help-файла, который будет автоматически показываться в окне встроенной помощи после нажатия кнопки F1. Кроме этого в свойство Application.HelpFile нужно поместить имя HLP-файла, например, в обработчике события FormCreate.

Для создания Help-файла используют текстовый файл в формате RTF с вставленными в него перекрестными ссылками, сносками, скрытым текстом и другими кодами и командами. Этот файл создается в текстовом редакторе Microsoft Word, который затем компилируют в формат HLP с помощью программы Microsoft Help Workshop (файл hcw.exe из каталога размещения Delphi – Help\Tools).