Como fazer p/ tecla Enter mudar p/ próximo Edit?
31/10/2003
0
Olá,
Como faço pra tecla ENTER ter a mesma função que a tecla TAB, ou seja quando o usuário apertar ENTER o cursor muda para o próximo Edit!
Atencipadamente Agradeço!
E aproveitando a oportunidade, gostaria de demonstrar um pouco da minha gratidão pelos membros dessa comunidade, que sem obrigação nenhuma, com a maior boa vontade estão tirando dúvidas de nós leigos em Delphi! Valeu galera!!!!!!!!!!
Como faço pra tecla ENTER ter a mesma função que a tecla TAB, ou seja quando o usuário apertar ENTER o cursor muda para o próximo Edit!
Atencipadamente Agradeço!
E aproveitando a oportunidade, gostaria de demonstrar um pouco da minha gratidão pelos membros dessa comunidade, que sem obrigação nenhuma, com a maior boa vontade estão tirando dúvidas de nós leigos em Delphi! Valeu galera!!!!!!!!!!
Motuca
Curtir tópico
+ 0
Responder
Posts
31/10/2003
Fabio.hc
Tente assim:
Na propriedade do form : keypreview=true.
e
Na propriedade do form : keypreview=true.
e
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then perform(WM_NEXTDLGCTL,0,0); end;
Responder
31/10/2003
Madmax
vai no event do form OnkeyPress e coloca isto
depois vai em propriedades da Paleta em [color=red:0aa8b9544b]KeyPreview[/color:0aa8b9544b] coloca [color=red:0aa8b9544b]True [/color:0aa8b9544b]
Pronto e so testar :wink:
/ com enter e tab pula de campo
begin
if key=#13 then
Perform(WM_nextdlgctl,0,0)
else if Key = 27 then
Perform(WM_nextdlgctl,1,0)
end;
depois vai em propriedades da Paleta em [color=red:0aa8b9544b]KeyPreview[/color:0aa8b9544b] coloca [color=red:0aa8b9544b]True [/color:0aa8b9544b]
Pronto e so testar :wink:
Responder
03/03/2020
Jose Dantos
procedure TTFormLogin.Edt1_Login KeyPress (Sender: TObject; var Key: Char);
begin
If Key = #13 Then
BEGIN
Edt2_Senha.SetFocus;
END;
end;
begin
If Key = #13 Then
BEGIN
Edt2_Senha.SetFocus;
END;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
