Caros colegas,

Este código para uma herança de classe executa sem problema, mas imagine criar algo semelhante, mas com um componente.

oExibe=NEWOBJECT("ExibirDadosFilha")
?oExibe.DarBoasVindas('Fulano de Tal')
DEFINE CLASS ExibirDados AS SESSION
	PROCEDURE DarBoasVindas (tcUsuario)
		RETURN "Olá: " + tcUsuario
	ENDPROC
ENDDEFINE

DEFINE CLASS ExibirDadosFilha as ExibirDados
	PROCEDURE DarBoasVindas (tcUsuario)
		RETURN DODEFAULT(tcUsuario) + '. Tudo bem?'
	ENDPROC
ENDDEFINE

Creio que ele deveria ficar assim.
Mas ai que está o inconviniente, com componente do próprio VFP o EVENTHANDLER retorna sempre falso.
Será que estou com o conceito errado?

BUILD PROJECT componente_01 FROM ExibirDados
BUILD DLL componente_01 from componente_01 recomp

oComp01 = NEWOBJECT("componente_01.ExibirDados")
oEvents = NEWOBJECT("myclass")
?EVENTHANDLER(oComp01,oEvents) && retorna .F. porque e como fazer?
?oComp01.DarBoasVindas('fulano')
?oEvents.IExibirDados_DarBoasVindas('fulano de tal') && consequentemente o valor retornado não é o esperado


DEFINE CLASS myclass AS session OLEPUBLIC
	IMPLEMENTS IExibirDados IN "componente_01.ExibirDados"
	PROCEDURE IExibirDados_DarBoasVindas(tcUsuario AS STRING) AS STRING
	 * add user code here
	ENDPROC
ENDDEFINE

DEFINE CLASS ExibirDados AS SESSION OLEPUBLIC
	FUNCTION DarBoasVindas (tcUsuario AS STRING) AS STRING
		LOCAL lcMensagemRetorno AS STRING
		lcMensagemRetorno = "Olá: " + tcUsuario
		RETURN lcMensagemRetorno
	ENDFUNC
ENDDEFINE