PC Toledo

Enviado: **17 Nov 2015 19:19**

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

Enviado: **17 Nov 2015 20:31**

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
//----------------------------------------------------------------------------

PC Toledo

Passar parametro para um Metodo na chamada de um envento

Passar parametro para um Metodo na chamada de um envento

Passar parametro para um Metodo na chamada de um envento