cuando finaliza un evento

[ecfisa]

Empezado por jonmendi

Efectivamente el escaner envía la cadena a un TEdit, pero si hago algo en el evento OnChange, ANTES de que finalice el evento de captura del escaner, salta el evento onchange, y después vuelve al evento de captura del escaner a finalizar. Con lo que tampoco me serviría.

Hola jon.

La idea fue indicarte el uso de mensajes con un ejemplo, tál como lo expresé en mi mensaje anterior: "Sólo a modo de ejemplo,...".

Cada vez que el escaner lee un código de barras válido, salta un evento. En este evento recojo la cadena leída.

En tu caso, creo que deberías poner la línea:

Código Delphi [-]
  PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);

como finalización del código del procedimiento asociado a ese evento que estás mencionando (y que desconozco).

Un saludo.

[jonmendi]

ops!
perdona por no haber comprendido bien el mensaje anterior. Debo estar espeso por no haber hecho la siesta...

Lo pruebo y te comento, gracias!

Jon

[jonmendi]

Gracias a todos! he probado diversas alternativas, como el

 
PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);

pero al final me he quedado con el evento que hace saltar el escaner OPOS

 
procedure TfPerifericos.EscanerOPOSDataEvent(ASender: TObject;
  Status: Integer);

Muchas gracias por vuestro tiempo y consejos!

Un saludo,
Jon