Para o E_Gama
10/04/2003
0
Olá Amigo, Obrigado pela atenção !
Referente a Questão que vc respondeu abaixo:
Só uma coisinha, dessa forma só consigo abrir o form uma vez, daí ele testa se a AClass é igual a nil, onde eu coloco ao fechar que a AClass é igual a nil ?
Também, tenho vários bpl e Vários form´s, pergunto, tenho que criar uma variavel pra cada form do tipo TPersistentClass ?
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;
[]´s
João Carvalho
Referente a Questão que vc respondeu abaixo:
Só uma coisinha, dessa forma só consigo abrir o form uma vez, daí ele testa se a AClass é igual a nil, onde eu coloco ao fechar que a AClass é igual a nil ?
Também, tenho vários bpl e Vários form´s, pergunto, tenho que criar uma variavel pra cada form do tipo TPersistentClass ?
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;
[]´s
João Carvalho
Anonymous
Curtir tópico
+ 0
Responder
Posts
10/04/2003
E_gama
Voce poderia fazer o seguinte: Na unit que carrega o form, em que AClass está declarada, crie a procedure abaixo:
faça também as alterações abaixo:
Vale lembrar que não testei isso também...
procedure ApagaForm(Sender: TObject); begin AClass := nil; end;
faça também as alterações abaixo:
procedure XXXXXXX;
begin
if AClass = nil then
begin
LoadPackage(´Package1.bpl´);
AClass := GetClass(´TFormPackage1´);
with TComponentClass(AClass).Create(Application) as TCustomForm do
begin
Visible := True;
OnDestroy := ApagaForm;
end;
end;
end;
Vale lembrar que não testei isso também...
Responder
10/04/2003
Anonymous
Esse formulário será mostrado como ´Modal´ ?
MDIChild, tem alguns que serão modal.
[]´s
João Carvalho
Responder
Clique aqui para fazer login e interagir na Comunidade :)
