Bloquear tecla enter

[Dangelo2010]

Boa tarde!

Estou com um problema em uma empresa onde o usuário ao fechar a venda ele segura a tecla enter, em vez de ir teclando enter por enter para navegar nos edits.

Com isso dispara vários enter travando assim a venda ate a quantidade de enter finalizar. "Usuário apressadinho"

O que eu queria era bloquear para ele nao segurar, e se segurar o Windows entender que a tecla foi usada somente uma vez

[Alexandre de Paula]

Boa tarde,

A principio esse tipo de tratamento deve ser feito na sua própria aplicação.

Um tipo de controle bastante comum é o "semáforo", onde quando uma operação é inciada você bloqueia e somente libera quando ela termina.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;

  // executa sua rotina no botão

  Button1.Enabled := True;
end;

Acima um exemplo no click de um botão. Quando inicia a execução ele deixa o botão desabilitado para não ser clicado novamente e só vai habilitar o botão no final do processo.
Esse mesmo tipo de tratamento pode ser feito com uma variável interna de controle ou com threads ou funções. Aí depende mais de como o seu código-fonte está estruturado.

 

[Dangelo2010]

18 minutos atrás, Alexandre de Paula disse:

Boa tarde,

A principio esse tipo de tratamento deve ser feito na sua própria aplicação.

Um tipo de controle bastante comum é o "semáforo", onde quando uma operação é inciada você bloqueia e somente libera quando ela termina.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;

  // executa sua rotina no botão

  Button1.Enabled := True;
end;

Acima um exemplo no click de um botão. Quando inicia a execução ele deixa o botão desabilitado para não ser clicado novamente e só vai habilitar o botão no final do processo.
Esse mesmo tipo de tratamento pode ser feito com uma variável interna de controle ou com threads ou funções. Aí depende mais de como o seu código-fonte está estruturado.

 

Já tenho esse teste no botão, porem mesmo assim vai vários enter 

 

[Daniel Simoes]

Mas então o "ENTER" está sendo disparado por outro evento, como por exemplo o OnKeyDown do Edit ou do Form...

[Dangelo2010]

2 minutos atrás, Daniel Simoes disse:

Mas então o "ENTER" está sendo disparado por outro evento, como por exemplo o OnKeyDown do Edit ou do Form...

Daniel, o problema e que o usuário segura o enter achando que vai mais rápido, e com isso o onclick acha que tem vários clicks nele, mesmo eu desabilitando o botão no inicio do click o botão já recebe vários clicks.

[Daniel Simoes]

acho que isso não ocorreria... em todo caso, se cai sempre no mesmo evento... é fácil de apenas ignorar o Enter, com Exit, caso você perceba que ele está em processamento...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Button1.Enabled then // <---- AQUI ----
    Exit;

  Button1.Enabled := False;

  // executa sua rotina no botão

  Button1.Enabled := True;
end;

 

[Dangelo2010]

2 minutos atrás, Daniel Simoes disse:

acho que isso não ocorreria... em todo caso, se cai sempre no mesmo evento... é fácil de apenas ignorar o Enter, com Exit, caso você perceba que ele está em processamento...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Button1.Enabled then // <---- AQUI ----
    Exit;

  Button1.Enabled := False;

  // executa sua rotina no botão

  Button1.Enabled := True;
end;

 

Vou tentar assim com Exit para ver, mais não sei se você mim entendeu, o que quero e bloquear o Enter do teclado para o usuário navegar entre os edits enter a enter, sem ter que segurar e disparar vários enter ao chegar no foco do botão

Mesmo eu usando Enabled := False ele ainda consegue passar varios enter

[Daniel Simoes]

Então você tem que desabilitar o Form ou o Panel, onde ele não pode navegar...

Ou ainda, subir um outro Form/Panel, sobre esse, enquanto o programa está trabalhando

 

[Dangelo2010]

 

O usuário informa o valor em dinheiro 1,25 e "Tecla Enter" vai para o Cartão de Crédito

Depois ele informa o valor do cartão de crédito 2,50. Ao invés dele teclar enter para ir para cartão de débito e depois enter para ir para o PIX, e enter para ativar o onclick do botão Fecha Venda, ele simplesmente informa os 2,50 do cartão de credito e segura o enter no teclado. Quando chega no onclick do botão eu dou um enabled false, porem segurar a tecla enter e tão rápido que passa para o click vários enter, pois ele segurou a tecla

 

 

 

[Renato Rubinho]

Boa noite,

Seus edits devem estar com o keydown ou keypress configurados para ir para o próximo ao pressionar enter.

Nesses eventos você deve configurar um controle para não permitir um processamento simultâneo.

Tomando como exemplo o keydown (pode ser o keypress, depende do seu fonte).

begin
  try
    Edit1.onKeydown := nil;

    // seu código como está hoje

  finally
    Edit1.onKeydown := Edit1Keydown; // procedure que estava no keydown
  end;
end;

 

[Dangelo2010]

Não resolve

vou usar o SpeedButton para não dar um SetFocus depois do PIX ou no PIX eu travar o enter do teclado, fazendo com que o usuário click com o mouse no botão Fechar Venda. Assim eu resolvo o problema do apressadinho.

Porque o cara e tão rápido que mesmo eu dando um Enabled := False No inicio do Click ainda sim e como se ele tivesse clicando no botão unas 30 vezes. Ai o botão entra num loop ate finalizar os clicks