Gdc frmG unit.Tgdc frmG.OnCreate

Модуль: gdc_frmG_unit.pas

Тип: event

Видимость: published

Принадлежит: Tgdc_frmG

Delphi:

 property OnCreate: TNotifyEvent read FOnCreate write FOnCreate stored IsForm;

Описание

Вызывается в момент создания экранной формы.

В этом событии мы связываем бизнес-объекты, расположенные на форме, с её свойствами gdcObject, gdcDetailObject. Форма сама откроет бизнес-объекты, нет необходимости открывать их принудительно. Свойство AllowStreamedActive должно быть установлено в False.

Пример обработчика OnCreate:

option explicit
sub usrf_wg_shiftOnCreate(ByVal Sender)
  Sender.GetComponent("usrg_gdcDepartment").ParamByName("RootID").AsInteger = IBLogin.CompanyKey
  Set Sender.gdcObject = Sender.GetComponent("usrg_gdcDepartment")
  Set Sender.gdcDetailObject = Sender.GetComponent("usrg_gdcShift")
 
'*** Данный код необходим для вызова встроенного обработчика ***
'*** В случае его удаления возможно нарушение работы системы ***
  call   Inherited(Sender, "OnCreate", Array(Sender))
'*** конец кода поддержки встроенного обработчика            ***
end sub