Buscar

Bloquear o teclado quando for preciso utilizar somente o leitor ótico.

Código

na definição de variáveis globais,

    Actived, OnTimer:Boolean;
    OnTimer:=True;  Actived:=False;

no evento num key press,

     if   not(key in['0'..'9']) then
          key:=#0;

     if   OnTimer then begin
          Timer3.Enabled:=True; OnTimer:=False; end;

no evento num Exit,

     Timer3.Enabled:=false;

     OnTimer:=True;
     if    Actived then Begin
          "mensagem de Erro"
     end;

no evento timer para o Timer3,

        Actived:=True;   // 1 segundo foi alcançado...
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 13/09/10
Por: Airton José Martins
Visualizada: 2893 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009