0

Boa tarde.

sou iniciante com Delphi, e estou fazendo exercícios básicos, dentre eles uma calculadora.

Decidi habilitar o KeyPreview e adicionar um evento, no OnKeyPress para trabalhar com a calculadora diretamente pelo teclado numérico.

Funcionou como esperado, exceto pela tecla Enter, que fica com foco sempre em algum lugar, além de não puxar a função.

Aqui um exemplo da tecla 0 :

if key = char ('0') then
begin
  btn00.Click;
end;

e aqui a forma que tentei adicionar o evento para pressionar a tecla enter:

 if key = char (#13) then
begin
  btnClear.Click;
end;

o 13 ali foi a forma que vi pessoas colocando, por ser a key code para o enter, até em alguns exemplos.

Imagino que tenha que antes remover algo do form, mas não consegui até o momento.

3 Respostas 3

-1

Você poder usar esse código:

No Event do form OnkeyPress

 if key=#13 then
     // sua ação
3
  • Ainda sim não funcionou, pois iniciando a execução, o tabOrder foca já no primeiro botão que criei, e o enter "clica" nele
    – Murillo R.
    Commented 10/11/2022 às 18:23
  • Coloca seu botão como Default = True; Commented 10/11/2022 às 18:36
  • E se ainda assim não funcionar força o foco no OnShow do seu Form if btn00.CanFocus then btn00.SetFocus; Commented 10/11/2022 às 18:37
-1

tudo bem, então eu costumo usar no evento on KeyDown assim :

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift:TShiftState);
begin
   { :: ENTER }
   if Key = 13 then
   begin
    //Seu COde....
   end;

OU
   if Key = VK_RETURN then
   begin
    //Seu COde....
   end;
end;

Espero ter te ajudado amigo.

-2

Como vc habilitou a propriedade keypress do form. Vá até evento onkey press do form tenta este código:

if key=#13 then Perform(CM_Dialogkey, VK_TAB,0);

1
  • Como está escrito atualmente, sua resposta não é clara. Por favor, pode editar para adicionar mais detalhes, que ajudarão outras pessoas a entender como isso resolve a pergunta feita. Você pode encontrar mais informações sobre como escrever boas respostas na Central de Ajuda.
    – Comunidade Bot
    Commented 7/03/2023 às 15:39

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .