Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / Baes / BaesModul
.pas 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.
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.