Atribuir Evento A Um Botão

[maikel]

Ola pessoal...

To tentando fazer uns código aqui, só não ta funcionando do jeito que eu queria..seguinte...dos meus forms de cadastro, onde tem chaves estrangeiras, eu chamo um Form de Consulta, que é o mesmo Form para qualquer tipo de consulta (Usuários, Livros, Autores) sendo que quando eu chamo ele, eu passo para a função qual o ClientDataSet e os campos que o DataSource e o DBGrid do Form Pesquisa deverão carregar. Até ai tudo tranquilo...só que eu também passo para uma outra função, o nome do Form que esta chamando e em qual campo o botão selecionar do Form pesquisa deverá jogar o valor, mas não consigo fazer com que o botão Selecionar receba este evento, ele sempre é executado assim que abre o form..

Estou fazendo assim:

FrmPesquisa.BtSelecionar.OnClick(PassaValor(FrmCadObras,EdtAutor));

Tem algum outro jeito de eu passar esse parametro para este botão, mas que ele só seja executado quando eu clicar sobre ele..e não ao abrir o Form?

Agradeço a quem puder me ajudar....

[Graymalkin]

Crie uma propriedade (ou campo) pública neste form e faça a atribuição do "PassaValor(...)" a ele quando o form for aberto. Daí, no botão Selecionar você vai utilizar essa propriedade (ou campo) que já foi setado previamente.

Abraços,

Grayamlkin

[maikel]

Graymalkin, será que você não poderia me dar um exemplo....não estou conseguindo criar essa propriedade publica...e como passo o valor a ela..?

Se puder me ajudar...

Muito Obrigado pela força....

valeu.....

[maikel]

Eu me basei na ajuda do Delphi e fiz assim...só que está dando o seguinte erro "Stack Overflow"

type

TValorRecebido = TObject;

...

private

{ Private declarations }

FValorRecebido : TValorRecebido;

public

{ Public declarations }

Procedure SetValorRecebido(Value :TValorRecebido);

Property ValorRecebido:TValorRecebido read FValorRecebido write SetValorRecebido;

procedure TFrmPesquisa.SetValorRecebido(Value: TValorRecebido);

begin

BtnSeleciona.Click;

end;

procedure TFrmPesquisa.BtnSelecionaClick(Sender: TObject);

begin

SetValorRecebido(ValorRecebido);

end;

Isso no form que estou chamando....para passar o valor..uso o seguinte

FrmPesquisa.ValorRecebido:=(PassaValor(FrmCadEmprestimo,DBEdit2));//Minha Função

Se alguém puder me ajudar....ou mostar onde está meu erro agradeço....

[s3c]

você está num loop infinito; por isso do Stack overflow.

Quando você atribui ao FrmPesquisa.ValorRecebido, sua property é write em SetValorRecebido e SetValorRecebido executa BtnSelecionaClick que por sua vez executa novamente SetValorRecebido.

Percebeu o lopping ?