Курсовой проект групп 3341 и 3382 / Baes / BaesModul

unit BaesModul;

interface
    uses Core,baes1,BaseModule,Instances,Forms,Windows,SysUtils;

    type

    TBaesModule = class(TBaseModule)

    public
      function GetName(): String;  virtual;
      procedure InitView(const core: TDMCore);   virtual;

    end;

implementation

   function TBaesModule.GetName(): String;
   begin
   {body}
   result:='Baes';
   end;

   procedure TBaesModule.InitView(const core: TDMCore);
   begin
    {Открытие формы и передача ей параметров}
       try

     //  inst:=TDMInstances.Create(core.GetData);

     //     Application.CreateForm(TfmExample, fmExample);

          fmExample.CallForm(core.GetData);

          except
              on EExternal do Application.MessageBox('В начале должен быть подгружен файл','Информация');
          else Application.MessageBox('Произошла ошибка при открытии вормы','Ошибка');
          fmExample.Close;
        end;

   end;

end.