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/
