Usando Package no sistema ?

Delphi

09/04/2003

Olá Pessoal, estou fazendo alguns testes para modularizar um sistema usando bpl, a minha dúvida a seguinte:

como abrir uma Package.bpl direto do menu,
tem um artigo aqui no Clube Delphi:

//Código do Clube Delphi.

//carrega a Package em um listbox
with OpenDialog1 do
if Execute then
with Listbox1.Items do
AddObject(GetPackageDescription(PChar(FileName)), Pointer(LoadPackage
(Filename)));


// Carrega o form de dentro da Package.
var
AClass: TPersistentClass;

AClass := GetClass(Listbox1.Items[Listbox1.ItemIndex]);
if AClass nil then
with TComponentClass(AClass).Create(Application) as TCustomForm do
Visible := True;

Preciso Abrir o form de dentro da Package sem ter que usar um ListBox.

Obrigado.

João Carvalho


Anonymous

Anonymous

Curtidas 0

Respostas

E_gama

E_gama

09/04/2003

Veja se o código abaixo funciona (não testei)

procedure TForm1.Button1Click(Sender: TObject);
var AClass: TPersistentClass;
begin
  LoadPackage(´NOME_DO_PACKAGE.BPL´);
  AClass := GetClass(´NOME_DA_CLASSE´);
  with TComponentClass(AClass).Create(Application) as TCustomForm do
     Visible := True;
end;



GOSTEI 0
POSTAR