Enter como tab (não reconhece o enter)
Olá amigos, para usar o enter como tab sempre fiz o seguinte (de um edit para outro) dentro do EditKeyDown:
WITH TEdit DO
IF Key = 13 THEN
SelectNext(Sender as tWinControl, True, True );
Tentei utilizar esse código recentemente porem não dava certo, achei que era pelo fato dos edits estarem dentro de um scrollbox mas o código não esta funcionando nem em edits fora, troquei o código acima por um showmessage(inttostr(key)); e para minha surpresa quando teclo enter nada aparece, para as outras teclas tudo ok, se alguém tiver alguma idéia...
WITH TEdit DO
IF Key = 13 THEN
SelectNext(Sender as tWinControl, True, True );
Tentei utilizar esse código recentemente porem não dava certo, achei que era pelo fato dos edits estarem dentro de um scrollbox mas o código não esta funcionando nem em edits fora, troquei o código acima por um showmessage(inttostr(key)); e para minha surpresa quando teclo enter nada aparece, para as outras teclas tudo ok, se alguém tiver alguma idéia...
Du_nirvana
Curtidas 0
Respostas
Romulocpd
07/01/2008
Por acaso verificou se KEYPREVIEW = TRUE no formulário?
GOSTEI 0
Du_nirvana
07/01/2008
Olá amigo.. , está sim.. , alguma idéia?
GOSTEI 0
Du_nirvana
07/01/2008
Olá amigos, resolvido com uma dica do arquivo de 900 dicas, http://www.4shared.com/file/31962960/22cf7ec8/dtdelphi28.html, mas ainda estou curioso para saber o porque desse problema...
GOSTEI 0