Шаг 3.4 - Инициализация компонентов.
Итак, мы с Вами установили на главную форму приложения необходимые компоненты, настроили их соответствующим образом, теперь необходимо провести их инициализацию.
Для этого перейдем в Delphi на главную форму, в инспекторе объектов перейдем на закладку Events для этой формы и создадим событие OnShow. Будет создана соответсвующая процедура события, в которой необходимо ввести следующие строчки:
procedure TPLMCom.FormShow(Sender: TObject);
begin
Self.vlrvl.CreateList;
// создать набор системных переменных
Self.vlrvl.ReadRegistry;
// загрузить переменные из реестра (если они там есть)
Self.DCOM.LoadDBData;
// подключиться к серверу приложений
// подключиться к базе данных
// загрузить из базы данных информацию в компоненты окружения
end;
Аналогично создайте для главной формы приложения событие OnClose и в созданной процедуре события введите следующие строчки:
procedure TPLMCom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Self.vlrvl.SaveRegistry;
// записать системные переменные в реестр
end;
Скомпилируйте приложение и запустите на выполнение. Если не будет выдано никакой ошибки, значит соединение с сервером приложений прошло нормально (если будет выдана ошибка - проверьте соединение с сервером приложений с помощью приложения ЛОЦМАН-Клиент). Закройте приложение. Загрузите редактор реестра (Кнопка Пуск -> Выполнить -> regedit). Зайдите на ветку HKEY_CURRENT_USER\Software\VisualLoodsman\PLM Commander. Вы увидите сохраненные системные переменные в реестре, как показано на рисунке 3.5.
Рис. 3.5
На этом урок закончим. Продолжение...
|