Buscar

Carrega form de um pacote(bpl)

Código

Function CarregaForm(const Pacote: String; const Classe: String): TFormClass;
var
  FormClass: TFormClass;
  HandlePack: HModule;
begin
  //tenta carregar o pacote
  HandlePack := LoadPackage(Pacote);
  if HandlePack > 0 then
  begin
    FormClass := TFormClass(GetClass(Classe));
    Result := FormClass;
  end
  else
  begin
    Result := nil;
  end;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 19/08/08
Por: Moralles
Visualizada: 8181 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009