ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Dificuldade p/Capturar a Tecla Enter

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Mobile com Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Diego_F
Novato
Novato


Registrado: Sábado, 4 de Mai de 2019
Mensagens: 2

MensagemEnviada: Sáb Mai 04, 2019 8:30 pm    Assunto: Dificuldade p/Capturar a Tecla Enter Responder com Citação

Boa Noite.
Tenho o seguinte código no evento KeyDown de um edit
begin
if(Key = 13)then
ShowMessage('Você teclou '+ KeyChar);//Para testar se estava capturando algo, a intenção é fazer outra coisa aqui
end;

Mas no Android só recebo algum retorno quando clico no botão de apagar
Obs:
*Já testei no evento KeyUp tambem e não funcionou.
*Precisa ser no Edit.
*Em outros fórum e aqui mesmo fala p/deixar a propriedade KeyPreview do form como True, mas essa opção nem mesmo aparece.
*Já testei usando a Unit AndroidApi.KeyCode e
if(Key = AKEYCODE_ENTER), mas tambem não funcionou.
Grato desde já pela atenção
Diego_F
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rodrigoprado
Colaborador
Colaborador


Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1045
Localização: Curitiba/PR

MensagemEnviada: Sex Jun 07, 2019 8:58 am    Assunto: Responder com Citação

Blz, testa deste método

procedure TFormLogin.edtJogadorKeyDown(Sender: TObject; var Key: Word;
var KeyChar: Char; Shift: TShiftState);
begin

if(Key = 13)then
begin
ShowMessage('Você teclou '+ IntToStr(key));//Para testar se estava capturando algo, a intenção é fazer outra coisa aqui
end;

// if (Key = vkReturn) Or (Key = vkTab) then
// btnAcessar.SetFocus;
end;

se precisar de uma lista de teclas mapeadas com inicio VK estao aqui:
unit System.UITypes;
_________________
- Compartilhe seus conhecimentos -
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Mobile com Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB