Realizando a ligação entre os modulos – Tutorial de criação de aplicação com o modulos Bpl com o Delphi – Parte 3

Nesta terceira e última etapa deste tutorial, vamos ver como realizar a chamada do formulário de cadastro de clientes que esta situado dentro do arquivo “PkgModular.Bpl”. É importante ressaltar que trabalhando desta forma, poderemos realizar diversos tipos de alteração no formulário e distribuir estas alterações apenas substituindo o arquivo bpl do usuário final, não havendo assim a necessidade de alteração do arquivo executável, o que poderá garantir a estabilidade da versão em caso de necessidade de pequenas correções de telas e funções.

Então vamos lá:

Primeiramente abra o aplicativo criado inicialmente e vamos criar uma pequena procedure padrão para realização da chamada dos diversos formulários criados em arquivos Bpl. Segue abaixo o código deste proecedure:

procedure TFrmPrincipal.AbreFormularioBpl(NomeClasse: String);
var Classe: TPersistentClass;
begin
  Classe := GetClass(NomeClasse);
  if Classe <> nil then
  begin
    with TComponentClass(Classe).Create(Application) as TCustomForm do
         Visible := True;
  end;
end;

procedure TFrmPrincipal.ActCadClienteExecute(Sender: TObject);
begin
  Application.CreateForm(TFrmCadCli,FrmCadCli);
  try
    FrmCadCli.ShowModal;
  finally
    FreeAndNil(FrmCadCli);
  end;
end;

procedure TFrmPrincipal.ActCadClienteExecute(Sender: TObject);
begin
  AbreFormularioBpl('TFrmCadCli');
end;