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

unit filters;

interface

uses
BaseModule,
FilterModule,
Core,
Forms;


type TFilters = class(TBaseModule)

procedure InitView(const inst: TDMCore);virtual;

end;

implementation

procedure TFilters.InitView(const inst: TDMCore);
var FilterForm : TFormFilter;
begin
FilterForm := TFormFilter.Creating(inst);
FilterForm.data := inst;
FilterForm.ShowModal;
FilterForm.Free;
end;



end.