Como fazer p/ tecla Enter mudar p/ próximo Edit?
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
Curtidas 0
Respostas
Fabio.hc
31/10/2003
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;
GOSTEI 0
Madmax
31/10/2003
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:
GOSTEI 0
Vicente Santos
31/10/2003
Show funcionou!
GOSTEI 0
Jose Dantos
31/10/2003
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;
GOSTEI 0