Passar parametro para um Metodo na chamada de um envento

[andersoncamilo]

Boa tarde,

Estou precisando passar alguns parâmetros na chamada de um evento.

Preciso abrir um formulário na chamada de desse evento, e nesse momento passar alguns parâmetros igual se faz com funções.


Exemplo função:

Código: Selecionar todos

PesquisaDados(mensagem,arquivo)

Function PesquisaDados(pcMensagem,pcArqivo)
..
..
return nil

Agora gostaria da ajuda de como passar esses mesmos parâmetros no caso abaixo:

Código: Selecionar todos

// No onClick  estou chamando o Método da seguinte forma:
{|| ::PesquisarRegistro('Pesquisa Clientes','CLIENTES') }

// No Método que é chamado estou fazendo da seguinte forma:

METHOD PesquisarRegistro( oSender, pcMensagem,pcArquivo ) CLASS TFrmClientes

   local cMensagem := pcMensagem
   local cArquivo     := pcArquivo
   TFormPesquisar():New(cMensagem, cArquivo):Show()

RETURN NIL

Da forma como estou fazendo não recebo os dados no formulário TFormPesquisar.


Agradeço se alguém puder ajudar

Anderson Camilo

[alxsts]

Olá!

Tente assim:

Código: Selecionar todos

#include "Hbclass.ch"

   CLASS TFrmClientes

      // variáveis visíveis somente dentro da classe
      PROTECTED:
      VAR cMensagem
	  VAR cArquivo

	  // variáveis visíveis de fora da classe
      EXPORTED:
      VAR iExported  INIT "Exported"

      METHOD PesquisarRegistro
   ENDCLASS
//----------------------------------------------------------------------------
METHOD PesquisarRegistro( oSender, pcMensagem,pcArquivo ) CLASS TFrmClientes

 ::cMensagem := pcMensagem
 ::cArquivo  := pcArquivo

 TFormPesquisar():New(::cMensagem, ::cArquivo):Show()

RETURN NIL
//----------------------------------------------------------------------------