Pessoal,

Eu tenho como "encapsular" o messagebox dentro de um método de um objeto?

Eu gostaria de não chamar o messagebox diretamente, deixando a liberdade para implantar outros recursos ( tipo fazer um log dos erros ).

Como eu poderia fazer isso?

Tentei criar um método da seguinte forma :

	PROCEDURE exibirmensagens( par_mensagem as Character,par_titulo as Character,;
par_tipo as Character, par_time as Integer  ) 
		IF EMPTY(par_mensagem) .or. ISNULL(par_mensagem) .or. TYPE(par_mensagem)<>"C"
			par_mensagem = ""
		ENDIF
		IF EMPTY(par_titulo) .or. ISNULL(par_titulo) .or. TYPE(par_titulo)<>"C"
			par_titulo = ""
		ENDIF
		IF EMPTY(par_tipo) .or. ISNULL(par_tipo) .or. TYPE(par_tipo)<>"C"
			par_tipo = ""
		ENDIF		
		IF EMPTY(par_time) .or. ISNULL(par_time) .or. type(par_time)<>"N"
			par_time = 0
		endif
		=MESSAGEBOX(par_mensagem,par_titulo,par_tipo,par_time)
	endproc

e não funcionou....