17 Nov 2015 18:19
PesquisaDados(mensagem,arquivo)
Function PesquisaDados(pcMensagem,pcArqivo)
..
..
return nil
// 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
17 Nov 2015 19:31
#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
//----------------------------------------------------------------------------
28 Ago 2018 05:50
andersoncamilo escreveu: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.
alxsts escreveu:
- Código:
TFormPesquisar():New(::cMensagem, ::cArquivo):Show()