FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
MaskEdit y Puerto paralelo
Hola,resulta que tengo un MaskEdit de solo numeros(3 Digitos), el problema es que lo quiero editar desde una interfase que tengo conectada al puerto paralelo, la cual tiene teclas que representan los numeros del 0 al 9, el codigo de la interfase ya lo tengo y funciona, solo que no se como escribir en la maskedit como si estuviera usando el mismo keyboard.....les agradeceria mucho su respuesta ya que este es el ultimo paso para mi proyecto gracias
uso este codigo: begin Bit:=GetPortBit(889,7);{procedimientos que se llaman desde la io.dll} Buffer:=Portin(889); {el cual lee el byte de entrada} if (Bit=0) and (Teclado=0) then begin case buffer of {Buffer es el valor que leyo y convirtio a decimal} 7:Borrar algo; ; {valor binario convertido a funcion u procedimiento} 15:MaskEdit.???? {aqui es donde quiero introducir el digito,no se como} 23:Memo.lines.Add('algo'); 87:Atras; 95:Adelante; 127:Memo1.Lines.clear; {si el byte nos da 127 borra el memo} end; Teclado:=1; end; if (bit=255) and (Teclado=1) then Teclado:=0; end;
__________________
Mexicali |
#2
|
|||
|
|||
por fin ya lo encontre en esta fabulosa pagina,
use el codigo keybd_event(Ord('4'), 0, 0, 0); gracias.......
__________________
Mexicali |
|
|
|