Cita:
Empezado por erasmorc
Buenas tardes,
Estoy leyendo a traves de un scanner de codigos de barra y guardando el contenido en un campo que esta conectado a una tabla osea que es un objeto Dbedit, el problema es que quisiera que una vez el codigo sea leido automaticamente el campo actue como si estuviera saltando al siguiente objeto, de forma tal que pudiera manejar los eventos on exit u otros.
Tengo conocimiento de que con #13 se hace un retorno de carro, pero el tema es que no se en que momento colocarlo.
Saludos,
Neo
|
Uhm, la vez q hice un programa q tenia q leer codigos de barras, el propio lector, al final de la lectura añadia el caracter #13 (o retorno de carro), no se si lo pueden hacer todos, pero si la gran mayoria.
Mira como esta configurado el lector, ya q en el manual de lector debe de haber unos codigos q son para configurarlo (o almenos asi funcionaba el q use yo, hehe), y alguna de sus opciones debe de ser, añadir el salto de carro.
Una solucion q se me ocurre asi rapida (suponiendo q no lograras hacer lo descrito arriba) y suponiendo q todos los codigos de barras tengan la misma longitud, puedes hacerlo capturando la longitud de la cadena (en el evento OnKeyUp), y si la longitud de la cadena es igual a la longitud final, entonces haces saltar tu mismo el evento q necesites.
Código Delphi
[-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Length(TDBEdit(Sender).Text) = 6 then
ShowMessage('Pling: retorno de carro');
end;
Todo lo q he dicho, esta basado en el funcionamento del lector q yo use, asi q puede no funcionarte, hehe.
Espero q te sirva de algo. Saludos.