F�rum uso da tecla UP para ir para o campo anterior #2907

18/02/2009

Em uma aplica��o normal eu uso o c�digo abaixo no evento Onkeydown do form. E funciona normalmente. if (Key in [VK_RETURN, VK_DOWN, VK_UP]) and (Screen nil) and (Screen.ActiveControl nil) then begin if Key in [VK_RETURN, VK_DOWN] then Keybd_event(VK_TAB,0,0,0) else Perform(WM_NEXTDLGCTL, 1, 0); end; Tentei implementar o exemplo usando a classe TDI que foi recentemente postada no site de voc�s. ( 28/1/2009 - Canal Delphi - Utilize a interface TDI sem modificar sua aplica��o) S� que o Perform(WM_NEXTDLGCTL, 1, 0) n�o funciona, apesar de ser executado, quando a tecla UP � pressionada. Segue anexo o exemplo do uso da classe TDI, com a unit2 alterada por mim para testar o evento onkeydown que implementei. Eu usei o c�digo "Keybd_event(VK_TAB,0,0,0)" para substituir o "Perform(WM_NEXTDLGCTL, 1, 0)" que tamb�m n�o funcionava. No aguardo. Nirlan

Nirlan Fundao

Curtir t�pico

+ 0

Responder

Post mais votado

20/02/2009

Ol� amigo !!!

Resolvido !! Vai ao formulario principal da aplica��o aquele que ir� conter todos as abas e no evento onKeyDown dele coloque o codigo abaixo:

if (Key in [VK_RETURN, VK_DOWN, VK_UP]) then
    begin
      if Key in [VK_RETURN, VK_DOWN] then
        Keybd_event(VK_TAB,0,0,0) // Perform(WM_NEXTDLGCTL, 0, 0)
      else
        Perform(WM_NEXTDLGCTL, 1, 0);
    end;

N�o esque�a de alterar o KeyPreview dele para True!! Isso Resolve, testei aqui com sucesso !!!

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Rodrigo Mour�o

Responder

Gostei + 1

Mais Posts

18/02/2009

Rodrigo Mour�o

Ol� Amigo !!!!

Entendi perfeitamente seu problema e precisaria dos fontes para depurar. Acima voc� diz:

"Segue anexo o exemplo do uso da classe TDI, com a unit2 alterada por mim para testar o evento"

mas n�o vi o anexo.

Ficarei no aguardo !!!!!!!!!!!

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

19/02/2009

Nirlan Fundao

ao tentar enviar o arquivo ZIP com menos de 300 kb atrav�s da op��o file upload, recebo a mensagem: Arquivo de imagem invalido. Seu IP e login foram salvos no log do servidor. Estou disponibilizando o arquivo no endere�o a seguir: www.mtg.com.br/tdi.zip Nirlan

Responder

Gostei + 0

19/02/2009

Rodrigo Mour�o

OK Amigo !!!

Estarei analisando e lhe respondo em breve !!!!

abs !!!

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

19/02/2009

Devmedia

vc pode utiizar o "meu disco virtual" para poder upar os seus arquivos. Essa op��o est� na home da consultoria. caso tenha d�vidas para us�-lo, tem o link do video explicativo ao lado da op��o.
Lembrando que os arquivos s� podem ser do formato .zip e .rar.

Responder

Gostei + 0

19/02/2009

Rodrigo Mour�o

Ol� Amigo !!!

Testei aqui o exemplo com depura��o. Na verdade o evento do form nao e disparado quando ele esta dentro de uma aba !! Ele e criado dinamicamente.

Fiz um teste colocando o evento no Form Principal que � o Form que sofre o event OnKeyDow e ele foi interceptado com sucesso. O problema � que ele move o foco para o pr�ximo componente na lista dele que n�o � o proximo componete na list do form que esta aberto dentro dele !!!

Eu irei verificar para tentar identificar uma maneira ou do Form Interno interceptar a mensagem de pressionamento de tecla ou que o from externo possa mover o foco para o componente correto !!!

abs

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

20/02/2009

Nirlan Fundao

se voc� observar, se for pressionado a tecla enter ou down ir� funcionar normalmente, j� que utilizo: if Key in [VK_RETURN, VK_DOWN] then Keybd_event(VK_TAB,0,0,0) Se houvesse um meio de usar a tecla UP ou o SHIFT + TAB com o keybd_event, poderia resolver o problema.

Responder

Gostei + 0

23/02/2009

Rodrigo Mour�o

Ol� Amigo Podemos encerrar o chamado ???

Atenciosamente,
Rodrigo Carreiro Mour�o
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

28/02/2009

Nirlan Fundao

sim, podemos encerrar.

Responder

Gostei + 0