Fórum Modularização com Packages #358120

initialization
   RegisterClass(TFormX);

finalization
   UnRegisterClass(TFormX);

var
  Classe: TComponentClass;
  idModulo: hModule;
  FormCriado: TForm;
begin
  idModulo:= LoadPackage(strPacote);

  if idModulo <= 0 then
  begin
    ShowMessage(´Não foi possivel carregar o pacote ´+strPacote);
    exit;
  end;

  FormCriado := nil;

  // verifico se o form já está criado,
  // pois não permito abrir um mesmo
  // form duas vezes (opcional)
  for i := 0 to Screen.CustomFormCount - 1 do
    if UpperCase(Screen.CustomForms[i].Name) = UpperCase(NomeDoForm) then
    begin
      FormCriado := TForm(Screen.CustomForms[i]);
      break;
    end;

  if FormCriado = nil then
    try
      Classe := TComponentClass(FindClass(NomeDaClasseDoForm));
      FormCriado := TComponentClass(Classe).Create(Self) as TForm;
      with FormCriado do
      begin
        Caption := strCaption;
        Tag := idModulo;
        Show;// se necessário
      end;
    except
      Classe := nil;
      ShowMessage(´A classe ´+NomeDaClasseDoForm+´ não pertence ao pacote ´+strPacote);
    end;
end;

aplicação.exe
|
|-> dispara o form dentro de modulo.bpl
         |
         |-> este form tem um botao que chama outro form contido no mesmo pacote