Buscar

Trocar a tecla TAB pelo ENTER.

Código

Criar na seção type da sua unit principal a seguinte procedure:

procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean); digite CTRL+SHIT+C pra implementar a mesma.

Em sua implementação codificar:

procedure TfrmPrincipal.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0);
end;

No evento onCreate do form principal codificar o seguinte:

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoEnterAsTab;
end;

Pronto daqui para frente você pode trocar a tecla tab pelo enter em todos os seus formulários sem se preocupar com nada.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 12/07/09
Por: Herminio L. Paes Júnior
Visualizada: 10537 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009