Fórum Usando Package no sistema ? #153478

09/04/2003

0

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

Responder

Posts

09/04/2003

E_gama

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;




Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar