cuando finaliza un evento

[jonmendi]

gracias Newtron y ecfisa!

Newtron:
si pongo un application.processmessages al final del evento, todavía no lo ha finalizado, con lo que no creo que me sirva. Y si cambio el valor de una variable, debería tener algo como un ttimer para ir leyendo el valor de la variable, pero no es eso lo que quiero.

Ecfisa:
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.

De todos modos, muchísimas gracias por vuestro tiempo.

Un saludo,
Jon

[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