Tocar a tecla TAB pelo ENTER no Kylix

Publicado por Perfil removido em 07/02/2005

[ Hits: 11.643 ]

 


Tocar a tecla TAB pelo ENTER no Kylix



Bom amigos, alguns programadores kylix me mandaram o seguinte enigma:

"Como trocar a tecla TAB por ENTER no Kylix?"

Então resolvi escrever essa dica. Veja abaixo.

No Delphi, o código da troca de TAB para ENTER fica da seguinte forma:

Procedure Tform1.FormKeyPress(Sender: Tobject; var Key: Char);
begin

   If key = #13 then
   Begin
      Key:= #0;
      Perform(Wm_NextDlgCtl,0,0); // essa instrução funciona somente no Windows através de API
   end;

end;

No Kylix o código da troca de TAB para ENTER fica da seguinte forma:

procedure TF_leitor.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   If key = #13 then
   Begin
      Key:= #0;
  
      //Perform(Wm_NextDlgCtl,0,0); // comente essa porcaria de instrução para API e coloque a de baixo
      SelectNext(activecontrol,True,True);
   end;

end;

Abraços!
 ============================= 
 Master_Foca, 
 Viva a liberdade dos Códigos 
 =============================  
Outras dicas deste autor

Debian 6.x e CentOS 6.x - Instalando módulo para chipset Realtek RTL8111/8168B

Corrigindo erro do Virtualbox 3.2.4 no Ubuntu 10.04: "Kernel driver not installed (rc=-1908)"

XAMPP para Ubuntu 10

Tomcat x Oracle10g

tmux: Utilizando no pfSense 2.2.2

Leitura recomendada

ABNT 2 e Kylix

Instalar placa de rede do Dell PowerEdge r410 no Debian 6 (Squeeze) amd64 ou i386

O empacotador cpio

Traduzir o Firefox 20 para português

PostgreSQL 9.1 64 bits - Instalação no Debian Squeeze

  

Comentários
[1] Comentário enviado por daniel.breda em 08/02/2005 - 15:25h

Boa kra...
Isso ai e bom pra quem desenvolve programas comerciais para linux...
Aqueles velhos usuarios acostumados com o ENTER

[2] Comentário enviado por daniel.breda em 09/02/2005 - 16:17h

Boa dica..
Ela tb funciona em Delphi não só em kylix.
Isso e bom para quem migra projetos, não precisa nem mudar o código, pois funciona nas duas plataformas...

:-)

[3] Comentário enviado por patoense em 27/03/2005 - 01:18h

Estou aprendendo C, e pretendo migrar a plataforma de Windows para Linux. Espero que essas dicas contribuam para o meu aprendizado.

[4] Comentário enviado por tidus em 09/04/2005 - 23:53h

Não dá pra usar:
if (key =#13) then
begin
key=#0
SelectNext((Sender as TWinControl),true,true);
end;



Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts