Clipper On Line • Ver Tópico - Passar parametro para um Metodo na chamada de um envento

Passar parametro para um Metodo na chamada de um envento

Discussão sobre a Xailer

Moderador: Moderadores

 

Passar parametro para um Metodo na chamada de um envento

Mensagempor andersoncamilo » 17 Nov 2015 18: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:


PesquisaDados(mensagem,arquivo)

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



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


// 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
andersoncamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 102
Data de registro: 22 Ago 2004 11:54
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Passar parametro para um Metodo na chamada de um envento

Mensagempor alxsts » 17 Nov 2015 19:31

Olá!

Tente assim:
#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
//----------------------------------------------------------------------------
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2930
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Passar parametro para um Metodo na chamada de um envento

Mensagempor Eric.Developer » 28 Ago 2018 05:50

simples, mas informe se ainda esta precisando, para eu sugerir a solução adequada.

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.


Uma observação sobre uma regra básica e útil do Xailer.
O método new (construtor) do Form, controles e outras classes, recebe apenas um argumento, um "objeto parent"
alxsts escreveu:
 TFormPesquisar():New(::cMensagem, ::cArquivo):Show()
Delphi, SQL, FastReport | Xailer VxH Fivewin Minigui Hwgui [x]Harbour
Contate-me: Desenvolvimentos em geral | Treinamentos
Overview/Download: Xailer / Harbour Ferramenta profissional e mais completa.
Avatar de usuário

Eric.Developer
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 31 Ago 2010 22:16
Curtiu: 0 vez
Mens.Curtidas: 8 vezes




Retornar para Xailer

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro