Fórum Controle de instância do Form em Package ? #153534
09/04/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
10/04/2003
E_gama
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)