codigo de barras

Question

boa tarde,Tenho um campo(edit), onde gostaria de bloquear qualquer tipo de digitacao, somente com o leitor.como eu posso fazer issono aguardoEvandro...

Darkrme · Answer

Amigo, procure a propriedade ReadOnly do seu Edit e mude-a para True, isso evita que o usu�rio digite no seu Edit.Espero ter ajudado. =)...

Evandro_araujo · Answer

entao mas se fizer isso nao vou conseguir passar o leitor de codigo de barra...

Vitor Alcantara · Answer

O que voc� pode tentar � pegar o valor digitado e armazenar em uma v�riavel, dai testar quando for pressionado o ENTER se � um c�digo de barras v�lido (EAN13 possui 13 digitos e o EAN8 possui 8 digitos), ap�s o ENTER voc� executa o teste se � c�digo v�lido ou n�o, e insere ou n�o no seu edit. Agora quanto a permitir a entrada de dados somente do leitor, creio que com esses leitores usb e extens�o de teclados, voc� n�o ir� conseguir, pois os mesmo funcionam como um teclado.

Ex:
no on KePress

begin
  if key in [�0�..�9�] then
  begin
    MinhaVariavel := MinhaVariavel + Key;
  end;

  if key = 13 then
  begin
    //Aqui voc� insere a sua rotina
  end;

end;

Darkrme · Answer

Desulpe, mas eu nao tinha visto que vc queria usar o Leitor, no meu sistema eu uso leitor, porem deixo apra o usuario digitar qualquer valor, busco o produto com o codigo q o ususario digitou, caso nao encontre nada mando uma msg e limpo o campo, caso contrario insere o produto na compra, mas a dica do nosso amigo Vitor pode dar certo, soh gostaria de fazer algumas obeservacoes, acho q trabalhar com tecla virtual eh mais facil ou seja #13 = Enter e VK_RETURN = Enter (Virtual), mais facil de memorizar, outra coisa... acho q para usar isso a sua tela de compra nao pode ter nenhum outro campo onde va numero, pois senao a sua variavel vai pegar mais caracteres que deve.

begin
  if key in [�0�..�9�] then
  begin
    MinhaVariavel := MinhaVariavel + Key;
  end;

  if Key = VK_RETURN then
  begin
    //Aqui voc� insere a sua rotina

   //no final dessa rotina vc zera a sua variavel
  MinhaVariavel := ��; ou MinhaVariavel := 0;
  end;

end;

acho q esse codigo vc poderia colocar no evento OnKeyDown do form, e se quiser deixar um pouco mais seguro usa a propriedade ActiveControl para saber em qual objeto esta o Foco.. por exemplo:


  if ActiveControl <> EdtData then
  begin
    if key in [�0�..�9�] then
    begin
      MinhaVariavel := MinhaVariavel + Key;
    end;
  end;

ou seja.. sua variavel soh vai pegar os numeros qnd nao estiver no campo de data, que tb eh um campo numerico.

Espero ter ajudado.

F�rum codigo de barras #367419