Fórum e_gama #153802
10/04/2003
0
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.
aquele exemplo não deu certo, dar um erro tipos imcompativeis,
AClass := ApagaForm; //deixa essa linha em distaque.
Obrigado !
João Carvalho.
Anonymous
Curtir tópico
+ 0
Responder
Posts
10/04/2003
E_gama
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]
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]
Responder
Gostei + 0
10/04/2003
Anonymous
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
Responder
Gostei + 0
10/04/2003
E_gama
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)