Enviar enter a la misma aplicación.
 

Hola foro, yo de nuevo.
Le comento tengo 2 lectores de barra, uno después de leer los código envía un enter y el otro no lo hace.

El lector está a 3 metro de la maquina y debe marcar un código, volver presionar enter y seguir.

Lo encare de la siguiente manera, puse un TTimer (Timer1) y un checkbock (e_enteradicional) y cuando el edit (e_codigo) tiene el foco en el evento onkeyPress tengo el siguiente código.

Código Delphi [-]
if key = #13 then 
    begin
     /// .. código que no viene al caso.
    end
else
   begin
      if (e_enteradicional.Checked) then
         begin
            Timer1.Enabled:= True;
         end;
   end;
end;

Al timer le doy un intervalo de 1500 y en el evento ontimer

Código Delphi [-]
procedure Tf_ParteIngreso.Timer1Timer(Sender: TObject);
begin
   /// ¿¿¿Como envio un enter a mi aplicación ????
end;

Nota: Eh buscado y encontré como enviar enter a otra aplicación, también este problema se parece al que postee anteriormente en el cual necesito mandar alt + F4, pero me parece que le servira más a la demás gente como post distinto ya que en el otro post es sobre el componente rxcalculator y esto es sobre un lector de código de barra que no envia enter.

Hola martinaza.

Código Delphi [-]
begin
  // situar el foco en el control receptor (si no lo tiene ya)
  keybd_event(VK_RETURN,0,0,0);
end;

Saludos.

Muchisimas gracias
 

Muchas gracias ahora mismo lo pruebo.

Todo ok.
 

ecfisa, muchísima gracias funciona de mil maravilla.

Hola

Con respecto a esto, debe ser problema de configuración. Todos los Lectores deben traer una hoja de configuración, en donde vienen varios codigos de barra, y a través de ellos les configuras que codigos leeran y si devuelven un Enter al Final...

Te lo digo por que tuve un problema similar con unos...

Trata de chequear el manual y nos cuentas..

Salu2:p:o