RES: [delphi-br] um misterio no evento...
Valeu, colega.. funcionou.. obrigado ... abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Moacir - GMail Enviada em: terça-feira, 22 de setembro de 2009 19:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] um misterio no evento... Cleiton, No evento OnKeyDown acrescente esta linha: if (key =VK_F10) then begin //-- AQUI key :=0 ; btConsultaClick(Self); end; Sucesso ! Moacir Cleiton Maciel Reis da Silva escreveu: Galera delphiana, eu sei que na programação tudo tem um lógica. Mas sinceramente não estou conseguindo encontrar a lógica disso: e tenho uma tela de cadastro, nessa tela tem todos os botões de incluir alterar etc e tem um botão de PESQUISA (CONSULTA) que abre um outro formulário lista todas os registros desse cadsatro. Eu utilizo teclas de funções nesse cadastro Por exemplo pra abrir a consulta eu utilizo F10, no evento OnKeyDow com o seguinte código if (key = VK_F10) then btConsultaClick(Self); ele carrega o evento onclick do botão. Consulta := TConsulta.create ( application ); try Consulta.ShowModal finally Consulta.Release; Consulta := nil; end; agora que vem o X da questão quando eu fecho a consulta o sistema executa novamente o envento OnKeyDow . e abre novamente a bendita da consulta. Como pode? Fica buferizado isso no forme por causa do KeyPreview = True? Por que sem isso não funciona as teclas de função. Sinceramente nãoo sei espero que os experientes colegas possam me dizer.. Testei chamando um showmessage e tambem a msg aparece duas vezes. Tenho outros modulos que trabalham com o KeyPreview = True e não ocorre esse problema. Obrigado. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] um misterio no evento...
Galera delphiana, eu sei que na programação tudo tem um lógica. Mas sinceramente não estou conseguindo encontrar a lógica disso: e tenho uma tela de cadastro, nessa tela tem todos os botões de incluir alterar etc e tem um botão de PESQUISA (CONSULTA) que abre um outro formulário lista todas os registros desse cadsatro. Eu utilizo teclas de funções nesse cadastro Por exemplo pra abrir a consulta eu utilizo F10, no evento OnKeyDow com o seguinte código if (key = VK_F10) then btConsultaClick(Self); ele carrega o evento onclick do botão. Consulta := TConsulta.create ( application ); try Consulta.ShowModal finally Consulta.Release; Consulta := nil; end; agora que vem o X da questão quando eu fecho a consulta o sistema executa novamente o envento OnKeyDow . e abre novamente a bendita da consulta. Como pode? Fica buferizado isso no forme por causa do KeyPreview = True? Por que sem isso não funciona as teclas de função. Sinceramente nãoo sei espero que os experientes colegas possam me dizer.. Testei chamando um showmessage e tambem a msg aparece duas vezes. Tenho outros modulos que trabalham com o KeyPreview = True e não ocorre esse problema. Obrigado. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] um misterio no evento...
Cleiton, No evento OnKeyDown acrescente esta linha: if (key =VK_F10) then begin //-- AQUI key :=0 ; btConsultaClick(Self); end; Sucesso ! Moacir Cleiton Maciel Reis da Silva escreveu: Galera delphiana, eu sei que na programação tudo tem um lógica. Mas sinceramente não estou conseguindo encontrar a lógica disso: e tenho uma tela de cadastro, nessa tela tem todos os botões de incluir alterar etc e tem um botão de PESQUISA (CONSULTA) que abre um outro formulário lista todas os registros desse cadsatro. Eu utilizo teclas de funções nesse cadastro Por exemplo pra abrir a consulta eu utilizo F10, no evento OnKeyDow com o seguinte código if (key = VK_F10) then btConsultaClick(Self); ele carrega o evento onclick do botão. Consulta := TConsulta.create ( application ); try Consulta.ShowModal finally Consulta.Release; Consulta := nil; end; agora que vem o X da questão quando eu fecho a consulta o sistema executa novamente o envento OnKeyDow . e abre novamente a bendita da consulta. Como pode? Fica buferizado isso no forme por causa do KeyPreview = True? Por que sem isso não funciona as teclas de função. Sinceramente nãoo sei espero que os experientes colegas possam me dizer.. Testei chamando um showmessage e tambem a msg aparece duas vezes. Tenho outros modulos que trabalham com o KeyPreview = True e não ocorre esse problema. Obrigado. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] um misterio no evento...
Será que não tem algum evento do form ou de algum componente que esteja compartilhando esse evento? [As partes desta mensagem que não continham texto foram removidas]