Clique para saber mais...
  Home     Download     Produtos / Cursos     Revista     Vídeo Aulas     Fórum     Contato   Clique aqui para logar | 06 de Outubro de 2026
  Login

Codinome
Senha
Salvar informações

 Esqueci minha senha
 Novo Cadastro

  Usuários
74 Usuários Online

  Revista ActiveDelphi
 Assine Já!
 Edições
 Sobre a Revista

  Conteúdo
 Apostilas
 Artigos
 Componentes
 Dicas
 News
 Programas / Exemplos
 Vídeo Aulas

  Serviços
 Active News
 Fórum
 Produtos / Cursos

  Outros
 Colunistas
 Contato
 Top 10

  Publicidade

  [Dicas]  Substituindo Tab por Enter em Toda a Aplicação
Publicado por marcellomm : Segunda, Fevereiro 26, 2007 - 08:44 GMT-3 (5503 leituras)
Comentários 4 Comentários   Enviar esta notícia a um amigo Enviar para um amigo   Versão para Impressão Versão para impressão
Administrador Essa dica é implementada uma única vez e é automaticamente usada em todo o projeto, sem nenhum outro código adicional. No form principal, declare um procedimento privado e escreva-o como a seguir:
  private
    { Private declarations }
    procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);

  ...

  {$R *.dfm}

  //Procedure que substitui Tab por Enter
  procedure TFormPrincipal.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
  begin
    if Msg.Message = WM_KEYDOWN then
    begin
      if Msg.wParam = VK_RETURN then
        Keybd_event(VK_TAB, 0, 0, 0);
    end;
  end;
O segundo passo é indicar ao projeto, que as mensagens geradas devem passar por este procedimento. No evento OnCreate do form principal, coloque o seguinte código:
  procedure TfPrincipal.FormCreate(Sender: TObject);
  begin
    Application.OnMessage := DoEnterAsTab;
  end;

Então é isso. Espero que gostem!

Obs.: Esta dica foi tirada do livro DELPHI APIs @ SOCKETS de HUGO S. NOVAES E FABIO CAMARA.

Abs;
marcellomm



Comentários Comentários
   Ordem:  
Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.


por: Ullrich (maycon123@hotmail.com) : Fev 17, 2008 - 10:08
(Informações sobre o membro | Enviar uma mensagem) http://
Funcionou, porem não tira aquele barulinho chato do enter.



por: marcosacolla (marcos@msystems.eti.br) : Out 25, 2009 - 12:41
(Informações sobre o membro | Enviar uma mensagem) http://
Que tal tirar aquele barulhinho chato fazendo isso....
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
begin
Msg.wParam := VK_TAB;
Handled := False;
end;


por: marcosacolla (marcos@msystems.eti.br) : Out 25, 2009 - 12:52
(Informações sobre o membro | Enviar uma mensagem) http://
Que tal tirar aquele barulhinho chato fazendo isso....
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
begin
Msg.wParam := VK_TAB;
Handled := False;
end;
  Edição 112

Revista ActiveDelphi

  50 Programas Fontes


  Produtos

Conheça Nossos Produtos

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados