Hola jonmendi.
Otra alternativa es enviar un mensaje al finalizar la lectura de la cadena. Sólo a modo de ejemplo, supongamos que la cadena es enviada por el scanner hacia un
TEdit y utilizamos el evento
OnChange del mismo:
Código Delphi
[-]
...
const
WM_AFTER_EVENTO = WM_USER + 300;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Edit1: TEdit;
procedure Edit1Change(Sender: TObject);
private
procedure WMAfterEvento(var Msg: TMessage); message WM_AFTER_EVENTO;
public
end;
....
implementation
procedure TForm1.WMAfterEvento(var Msg: TMessage);
begin
ShowMessage('Cadena leida. Procesando resultado...');
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Sleep(500); PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);
end;
...
Un saludo.