Teclado Numérico
01/02/2003
0
Tenho uma aplicação desenvolvida, e meu cliente comprou um teclado numérico, aquele que não tem letra, e gostaria de saber como fazer para q meu PDV funcione com ele, pois é a primeira vez q trabalho com ele. Como fazer para que o Software acesse as teclas, tais como abrir Gaveta, Consultar Produto e etc...
O modelo do :D teclado é: TEC 44 Mini DIN/DIN - Fab. Gertec
O modelo do :D teclado é: TEC 44 Mini DIN/DIN - Fab. Gertec
Anonymous
Curtir tópico
+ 0
Responder
Posts
01/02/2003
Anonymous
seguinte cara, tu vai ter que saber qual o código que cada tecla gera no evento keydown ou keypressç.
depois disso é só fazer o tratamento de acordo com o código.
depois disso é só fazer o tratamento de acordo com o código.
Responder
01/02/2003
Anonymous
Talvez esse código ajude a vc decobrir o código das teclas.
- Coloque um Label no form (Label1);
- Mude a propriedade KeyPreview do form para true;
- Altere o evento OnKeyDown do form como abaixo: }
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption :=
Format(´O código da tecla pressionada é: ¬d´, [Key]);
end;
Observações
Para testar execute e observe o Label enquanto pressiona as teclas desejadas
- Coloque um Label no form (Label1);
- Mude a propriedade KeyPreview do form para true;
- Altere o evento OnKeyDown do form como abaixo: }
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption :=
Format(´O código da tecla pressionada é: ¬d´, [Key]);
end;
Observações
Para testar execute e observe o Label enquanto pressiona as teclas desejadas
Responder
07/02/2003
Anonymous
Tenho uma aplicacao de PDV em Delphi 5 e trabalho com uma impressora Epson TM-T88II e um caixa Epson DMA-48EDIII.
Nao estou conseguindo fazer com que o papel corte automaticamente apos a impressao e tambem nao consigo fazer com que o caixa abra.
Existe algum codigo em Delphi que possa fazer isso.
Como posso resolver o problema?
Aguardo resposta.
Edy.
edyikeoka@yahoo.com
Nao estou conseguindo fazer com que o papel corte automaticamente apos a impressao e tambem nao consigo fazer com que o caixa abra.
Existe algum codigo em Delphi que possa fazer isso.
Como posso resolver o problema?
Aguardo resposta.
Edy.
edyikeoka@yahoo.com
Responder
Clique aqui para fazer login e interagir na Comunidade :)
