e_gama

Delphi

10/04/2003

Olá e_gama, quero te agradecer pela atenção !

aquele exemplo não deu certo, dar um erro tipos imcompativeis,

AClass := ApagaForm; //deixa essa linha em distaque.


Obrigado !


João Carvalho.


Anonymous

Anonymous

Curtidas 0

Respostas

E_gama

E_gama

10/04/2003

Baixe no link abaixo, um exemplo que criei.
Tem uma linha com o seguinte: [b:56dd39c38c]RegisterClass(TForm2)[/b:56dd39c38c]. Subistitua-a por aquela ´[b:56dd39c38c]LoadPackage...[/b:56dd39c38c]´

[url]http://www.salesiano.com.br/egama/TesteForm.zip[/url]


GOSTEI 0
Anonymous

Anonymous

10/04/2003

Baixe no link abaixo, um exemplo que criei. Tem uma linha com o seguinte: [b:298b0ed38c]RegisterClass(TForm2)[/b:298b0ed38c]. Subistitua-a por aquela ´[b:298b0ed38c]LoadPackage...[/b:298b0ed38c]´ [url]http://www.salesiano.com.br/egama/TesteForm.zip[/url]



Obrigado e_gama,

eu estou usando LoadPackage porque o meu o form está dentro de uma Package.bpl, desculpa a Ignorancia, estou começando com delphi, sou programador em C/COBOL como posso aplicar esse exemplo que vc fez usando Package ?


Valeu

João Carvalho


GOSTEI 0
E_gama

E_gama

10/04/2003

procedure TForm1.Button1Click(Sender: TObject);
var FormTeste: TForm;
begin
   if AClass = nil then
      begin
        LoadPackage(´Package1.bpl´);
        AClass := GetClass(´TFormPackage1´);
        FormTeste := (TComponentClass(AClass).Create(Application) as TForm);
        FormTeste.OnDestroy := Form1.ApagaForm;
        FormTeste.Show;
      end;
end;


Onde [b:329561aefe]Form1[/b:329561aefe] é o seu form e no form que está no package, no evento OnClose, coloque:

Action := caFree;

ps: Eu também programo com a velha e boa COBOL.


GOSTEI 0
POSTAR