Poo - Formulario não conhece Objeto Executor

11/05/2008

0

Olá!
Bom dia!

Sou Programador Delphi-7 + IB/FB + DBExpress + Poo (Iniciante)


Tenho o seguinte problema:

TEnho um Formulario que nao conhece o OBJ executor.



-----Estrutura-----------------------------
Programa Parcelas
Unit_Parcelas - Form_Parcelas
Unit_Dinheiro
Unit_Cartao - From _cartao
Unit_Cheque - Form_cheque
Unit_Carteira - Form_carteira
--------------------------------------------

1-Prog_Parcelas:
==============

1.1-Unit_Parcelas:
--------------
Cria_Instacia();
Cria um CDs_Parcelas...;
Zera Variaveis/Inicia...;


Destrua_se;
Pede_Dados();
Recebe_Dados(Valor);
Tabela_Recebe_Dados(Codreg, Valor); //...Cds_Parcela


1.1.1- Form_Parcelas:
--------------
Ds_Parcela.Datset := Cds_Parcela;

Cds_Parcelas--> Codreg, Descr_Forma_Pgto, Vltotal;

DBGrid

Dentro do Form_Parcelas, acesso vários outro formularios,
como: Se Unit_Carteira - Carteira - Form_Carteira,
Unit_cheque - Cheque - Form_cheque, ...

1.2.0-Unit_Dinheiro - Dinheiro (Heranca de Unit_Parcels)
1.2.1-Unit_Carteira - Carteira - Form_Carteira (Heranca de Unit_Parcels)
1.2.2-Unit_cheque - Cheque - Form_cheque (Heranca de Unit_Parcels)
1.2.3-Unit_Cartao...

O Form_Carteira, q está dentro da Unit_Carteira, não conhece
o Objeto executor;

Acontece q estando dentro do form_Carteira, preciso envia
Msg para a Unit_Carteira, Unit_Parcelas, para atualizar dados.


:?: 1-Como fazer o form conhecer o objeto executor ?
--------------------------------------------------------

Pois se declaro no Uses a Unit_Carteira é enviado um erro
ao compilar, erro de declaracao Circular, pq já foi declarado
na unit_carteira o Form_Carteira, poi o mesmo o cria executa o form e destroi.


Sei q o form_Cateira, não tem como conhecer o objeto executor.
Preciso de uma solução de passar o endereco do objeto executo
para ser Executado.

Não sei se ficou bem claro, pois é muito complicado
explicar. :roll:

Desde já meus agradecimento, a quem puder responder.

100+

ANT.CARLOS/SP


Ant.carlos/sp

Ant.carlos/sp

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar