Глава 12. РАЗРАБОТКА ОКОННОГО ИНТЕРФЕЙСА

Компонент глобальных событий TAllegroEvents

Компонент TAllegroEvents используется для обработки глобальных событий в системе Allegro . В основном этот компонент предназначен для работы в составе глобальных модулей конфигурации. Эти модули бывают загружены постоянно.

TAllegroEvent = procedure(const EventName: string;
    InputParams: variant; var OutputParams: variant) of object;

Если на событие OnEvent назначен обработчик, то при вызове этого обработчика в него передаются:

• имя события (string)
• входные параметры (Variant или Variant array)
• выходные параметры (Variant или Variant array)

Вызвать глобальное событие можно с помощью процедуры CallAllegroEvent:

procedure CallAllegroEvent(const EventName: string;
   InputParams: variant; var OutputParams: variant);

Имеется ряд системных событий Allegro:

OnGlobalScriptError, OnScriptError, OnInterBaseError, OnException,
RefBeforePost, RefBeforeDelete, DocBeforeDelete
GaapBeforeMakeEntries, GaapBeforeCommit
AfterLogon, CreateReferencedEnabled, CreateReferenced,
OnBalanceAccDblClick, OnShowRelatedDocuments

Внимание! Если при вызове события передавается один параметр, то он передается просто как тип Variant, и только если число параметров больше одного, они передаются как массив Varraint array.

Свойство EventNames можно редактировать в инспекторе объектов вручную, а можно вызвать редактор свойства, нажав на кнопку с многоточием . Редактор свойства позволяет не только вводить новые имена событий , но и использовать имеющиеся системные события Allegro:

Рассмотрим каждое системное событие подробнее.

Событие OnScriptError - происходит при ошибке в скриптовой системе, кроме ошибок в глобальных модулях.

Событие OnGlobalScriptError - происходит при любой ошибке в глобальных модулях .

Событие OnInterBaseError - происходит при ошибках сервера IB (например , при нарушениях уникального ключа, генерации исключительных ситуаций и т.п.).

Событие OnException - происходит при ошибках самого Allegro).

Событие RefBeforePost - происходит перед сохранением объекта в справочнике.

Событие RefBeforeDelete - происходит перед удалением объекта из справочника.

Событие DocBeforeDelete - происходит перед удалением документа.

Событие GaapBeforeMakeEntries - происходит перед проведением ручной операции.

Событие GaapBeforeCommit - происходит перед подтверждением транзакции ручной операции.

Событие CreateReferencedEnabled происходит каждый раз перед появлением контекстного меню « Проводника по документам».

Событие CreateReferenced происходит, когда пользователь «нажал» пункт Создать на основании… контекстного меню в «Проводнике по документам». Для работы этого механизма необходимо предварительно также реализовать обработку события CreateReferencedEnabled, иначе этот пункт меню окажется неактивным .

Событие OnBalanceAccDblClick происходит при двойном щелчке на счетах нижнего уровня в окне «Баланс».

Событие OnShowRelatedDocuments происходит при «нажатии» на пункт меню «Ссылающиеся документы» в контекстном меню «Проводника по документам» или соответствующей кнопке в окне «Ручной операции ».

Событие AfterLogon- происходит после соединения с базой данных. Используется для отображения заставки. Входные и выходные параметры имеют значение NULL.

Организовать вывод заставки при соединении с базой данных несложно. Нужно создать форму, разместить на ней компонент Image и загрузить в него картинку. Затем нужно поместить на эту форму таймер, в котором установить интервал отображения картинки в миллисекундах и свойству Enabled таймера присвоить False.

Затем нужно создать два обработчика – один у формы, который запустит таймер, другой у таймера, который закроет форму:

procedure TSplashForm.FormShow(Sender: TObject);
begin
  Timer1.Enabled := True;
end;
procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Close;
end;

Теперь осталось создать глобальный модуль, если его еще нет , расположить на нем компонент AllegroEvents, его свойству EventNames присвоить значение AfterLogon, и создать обработчик события OnEvent:

procedure TDataModule1.AfterLogonEvent(const EventName: String;
   InputParams: Variant; var OutputParams: Variant);
begin
   UseUnit('SplashUnit.pas'); //загружаем модуль с формой
   SplashForm.ShowModal; //высвечиваем форму
   UnloadUnit(' SplashUnit.pas'); //выгружаем модуль с формой
end;

При работе с событиями Allegro нужно помнить, что если Вы назначите несколько обработчиков на событие с одинаковым именем, то сработают они все, причем в произвольном порядке.