Форма входа
Категории раздела
Delphi [24]
Статьи по программированию на Delphi.
html [42]
Статьи и помощь по html
I Love Bashorg
Главная » Статьи » Программирование » Delphi

Создание апплетов панели управления в Delphi5


Введение
Практически любое серьезное приложение требует для своей работы настройки каких-либо параметров. Одним из способов является создание меню пункта "Сервис" в самом приложении. В том случае, если параметры приложения изменяются достаточно редко и/или желательно иметь отдельное приложение для управления настройками, хорошим решением является использование панели управления.
Как известно, настройка параметров Windows производится с помощью панели управления. Данная панель представляет собой окно, содержащее апплеты (значки). Каждый из апплетов представляет собой специальное приложение, осуществляющее настройку частей операционной системы или прикладных приложений. Апплеты хранятся в папке Windows/System в файлах с расширением cpl.
Создать апплеты панели управления можно было и в более ранних, чем 5 версиях Delphi. Однако это было достаточно сложно и неудобно. В состав Delphi 5 был введен специальный Project Wizard и компоненты, делающие процесс создания апплета панели управления простым и удобным для программиста.

Создание апплета
Создание апплета панели управления начинается с вызова диалога создания нового объекта. Итак, выберем пункт меню "File/New" и появившемся диалоге на закладке "New" выберем значок "Control Panel Application" (рис. 1.).

После нажатия кнопки "ОК" диалога будет создан новый проект апплета. Присмотримся более внимательно к проекту, выбрав пункт меню "Project/Veiw Source":

library Project1;// Ха, да это же dll

uses
 CtlPanel,
 Unit1 in 'Unit1.pas' {AppletModule1: TAppletModule};

exports CPlApplet; // Точка входа в апплет

{$R *.RES}

{$E cpl} // Присвоить файлу расширение cpl после компиляции

begin
 Application.Initialize;
 Application.CreateForm(TAppletModule1, AppletModule1); // Создание модуля
 Application.Run;
end.

Из данного исходника видно, что:
1. Апплеты представляют собой dll написанные по специальным правилам.
2. Функиональность апплета реализуется в классе TАppletModule.

TАppletModule - это наследник TDataModule, предназначенный для управления работой апплета. Один проект может содержать несколько апплетов ( иконок на панели). 
Чтобы добавить новый апплет в проект необходимо выбрать пункт меню "File/New" с закладки "New" диалога значок "Control Panel Module".
Для настройки нашего апплета можно поменять с помощью инспектора объектов свойства Caption (заголовок апплета - строка под его иконкой) и AppletIcon (иконка). Установим св-во Caption равным "Мой апплет", а иконку из дополнительных файлов Delphi. В TАppletModule может содержать различные невизуальные компоненты, однако чаще всего требуется чтобы при двойном щелчке мышью на значке апплета на экране появлялись формы с элементами настройки. При двойном щелчке мышью генерируется событие OnActivate компонента TАppletModule, а при закрытии апплета - OnStop. Реализуем вышеописанное.
Добавим новую форму к проекту (Project/New/Form или через иконку на панели Delphi).Обратите внимание, что при этом в файл проекта, код которого приведен выше добавится строка:
Application.CreateForm(Tform1, Form1);
Т.е по умолчанию экземляр формы создается автоматически. Убрав эту строчку можно динамически создавать форму динамически в нужный момент времени (не забудьте затем уничтоженить созданный экземпляр). На форме можно размещать визуальные компоненты и писать код для настройки параметров ваших приложений. Теперь в обработчике события OnActivate компонента TАppletModule пишем:
Form1.ShowModal; 
Не забудьте при этом указать, что в модуле компонента АppletModule используется модуль созданной формы.
Сохраняем и компилируем проект. 
Все, поздравляю, вы создали апплет панели управления.

Инсталляция апплета
Скопируйте файл с расширением cpl из папки проекта в Windows\System (где лежат и остальные cpl). Откройте панель управления, оопс, Вы должны увидеть среди прочих иконку Вашего апплета (рис. 2.)

Заключение
Данная заметка, конечно же, не претендует на полноту освещения темы. В качестве еще одного примера апплета можно использовать проект из примеров Delphi 5 (/DEMOS/CPL/DATE/).
Всячески приветствуются исправления, дополнения, пожелания. Связаться с автором можно по e-mail mgoblin@mail.ru

Спасибо, желаю Вам успехов, Mike Goblin

 
Автор статьи:  Михаил Голованов




Источник: http://www.delphimaster.ru/articles/applet/index.html
Категория: Delphi | Добавил: Bombers (11.10.2009)
Просмотров: 724 | Рейтинг: 0.0/0
Всего комментариев: 0
Среда, 05.08.2020, 20:28
Приветствую Вас Гость
Статистика
  • Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Admin icq status
    587643917
    Друзья сайта