Controle de instância do Form em Package ?

Delphi

09/04/2003

Olá Pessoal, boa tarde, estou fazendo alguns testes sobre modularização com packages,

estou usando esse código para carregar a package e Instaciar o Form, o meu problema é controlar a abertura do Form, dessa forma quantas vezes clicar será aberto o forme. como resolver isso ?

var
AClass: TPersistentClass;
begin
LoadPackage(´Package1.bpl´);
AClass := GetClass(´TFormPackage1´);
with TComponentClass(AClass).Create(Application) as TCustomForm do
Visible := True;
end;


Obrigadão !

João Carvalho


Anonymous

Anonymous

Curtidas 0

Respostas

E_gama

E_gama

09/04/2003

Tente isso:

implementation
var AClass: TPersistentClass; // Váriavel global nessa unit

procedure XXXXXXX;
begin 
  if AClass = nil then
     begin
       LoadPackage(´Package1.bpl´); 
       AClass := GetClass(´TFormPackage1´); 
       with TComponentClass(AClass).Create(Application) as TCustomForm do 
       Visible := True; 
     end;
end;



GOSTEI 0
POSTAR