Acessando Componentes atrav

[Marcelo Coelho Silva]

Prezados Senhores,
Tenho um Tform1.PRG com varios compentes e Metodos, em um destes metodos é
chamada uma PROCEDURE que esta em outro arquivo PRG; neste PROCEDURE estou
tentando escrever em um dos componentes que esta declarado no Tform1.PRG sem
Sucesso:
EXEMPLO.PRG
***********************
PROCEDURE MENSAGEM
PARAMETER cTexto
::Tform1:oEdit1:value := cTexto // (linha 2973)
RETURN
************************
Na linha 2973 (texto acima) é retornado em tempo de execução o Erro:
MENSAGEM(2973)
Erro BASE/1003 Variable does not exist: SELF
Argumentos: ()
Desde já agradeço a que poder me auxiliar,
Obrigado,
Marcelo Coeho Silva

[Xevi]

Marcelo,
Desde una procecure no es visible un objeto de una clase, si no le envias
ésta como parámetro.
Llama a la procedure enviándole self como parámetro...
MENSAGEM( self )
y le recoges el valor en el procedure
PROCEDURE MENSAGEM
PARAMETER self
::TForm1:oEdit:Value := cTexto
....
Un Saludo,
Xevi.
"Marcelo Coelho Silva" <marcelo@mhacker.com> escribió en el mensaje
news:[email=48dbce9d@ozsrv2.ozlan.local...]48dbce9d@ozsrv2.ozlan.local...[/email]
> Prezados Senhores,
>
> Tenho um Tform1.PRG com varios compentes e Metodos, em um destes metodos é
> chamada uma PROCEDURE que esta em outro arquivo PRG; neste PROCEDURE estou
> tentando escrever em um dos componentes que esta declarado no Tform1.PRG
> sem Sucesso:
>
> EXEMPLO.PRG
> ***********************
> PROCEDURE MENSAGEM
>
> PARAMETER cTexto
>
> ::Tform1:oEdit1:value := cTexto // (linha 2973)
>
> RETURN
> ************************
>
> Na linha 2973 (texto acima) é retornado em tempo de execução o Erro:
>
> MENSAGEM(2973)
> Erro BASE/1003 Variable does not exist: SELF
> Argumentos: ()
>
> Desde já agradeço a que poder me auxiliar,
>
> Obrigado,
>
> Marcelo Coeho Silva
>

[Marcelo Coelho Silva]

Xevi,
Obrigado,
Marcelo.
"Xevi" <xevicomas_quitar_esto@gmail.com> escreveu na mensagem
news:48dbe7ee$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Marcelo,
>
> Desde una procecure no es visible un objeto de una clase, si no le envias
> ésta como parámetro.
>
> Llama a la procedure enviándole self como parámetro...
> MENSAGEM( self )
>
> y le recoges el valor en el procedure
>
> PROCEDURE MENSAGEM
> PARAMETER self
>
> ::TForm1:oEdit:Value := cTexto
> ...
>
> Un Saludo,
> Xevi.
>
>
> "Marcelo Coelho Silva" <marcelo@mhacker.com> escribió en el mensaje
> news:[email=48dbce9d@ozsrv2.ozlan.local...]48dbce9d@ozsrv2.ozlan.local...[/email]
>> Prezados Senhores,
>>
>> Tenho um Tform1.PRG com varios compentes e Metodos, em um destes metodos
>> é chamada uma PROCEDURE que esta em outro arquivo PRG; neste PROCEDURE
>> estou tentando escrever em um dos componentes que esta declarado no
>> Tform1.PRG sem Sucesso:
>>
>> EXEMPLO.PRG
>> ***********************
>> PROCEDURE MENSAGEM
>>
>> PARAMETER cTexto
>>
>> ::Tform1:oEdit1:value := cTexto // (linha 2973)
>>
>> RETURN
>> ************************
>>
>> Na linha 2973 (texto acima) é retornado em tempo de execução o Erro:
>>
>> MENSAGEM(2973)
>> Erro BASE/1003 Variable does not exist: SELF
>> Argumentos: ()
>>
>> Desde já agradeço a que poder me auxiliar,
>>
>> Obrigado,
>>
>> Marcelo Coeho Silva
>>
>
>