Cara..
eu tambem trabalho com pacotes, e realmente é muito bom.
Para resolver esse problema, eu criei um pacote onde tenho varias funçoes, por
exemplo validar CPF e CNPJ entre outras, declarar variaveis publicas, enfim, na
minha aplicação principal e nos outros pacotes tenho só o basico mesmo (Gravar,
excluir, Novo, etc..).
Para poder usar esse pacote q tem todas as variaveis e funçoes, eu declaro esse
paconte na Uses dos outros pacotes ou na aplicação principal.. veja o codigo
abaixo:
unit fLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCore, dxButton, StdCtrls, ComCtrls, ExtCtrls, MEU PACOTE;
type
TfLogin = class(TForm)
dxButton1: TdxButton;
dxButton2: TdxButton;
dslogin: TEdit;
dssenha: TEdit;
Entendeu?
Richardson Marcelo Freddo.
msn: freddodp...@hotmail.com
Skype: r.freddo
Rondonópolis/MT
De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Fevereiro de 2010 12:29:30
Assunto: [delphi-br] Ajuda com Package
Olá pessoal,
Para modularizar minha aplicação resolvi utilizar Packges e que é uma
opção muito boa.
Mas estou tendo um problema:
Não consigo enviar o valor deu uma variável publica da minha Aplicação
principal para o Pacote.
Meu pacote é carregado dinamicamente através do código mais abaixo
Na minha aplicação principal tenho uma váriavel declarada com pública
E quando tento acessar essa várivel ela fala o valor dela é INACESSÍVEL.
O que pode está acontecendo?
Desde já Agradeço
Marcelo Pomarolli
Código para carregar o pacote dinamicamente.
procedure TFPrincipal. ac_PagarExecute( Sender: TObject);
var
H : HMODULE;
PForm : TFormClass;
Form : TForm;
begin
if FileExists(' FINANCEIRO. bpl') then
begin
H := LoadPackage( 'FINANCEIRO. bpl');
if H 0 then
begin
PForm := TFormClass(GetClass ('TfFiltro_ PAGAR'));
if Assigned(PForm) then
begin
Form := PForm.Create( nil);
Form.ShowModal;
FreeAndNil(Form) ;
UnloadPackage( H);
end
else
Application. MessageBox( 'Error ao carregar o MODULO
FINANCEIRO!' ,'Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
end
else
Application. MessageBox( 'Para usar este recurso você deve adquirir o
Modulo FINANCEIRO.' +#13+
'Entre em contato com o seu Revendedor para
maiores detalhes.',' Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]