Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Provocar retorno de carro despues de llenar campo dbedit (https://www.clubdelphi.com/foros/showthread.php?t=35508)

erasmorc 12-09-2006 22:21:51

Provocar retorno de carro despues de llenar campo dbedit
 
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

xEsk 13-09-2006 03:06:52

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.


La franja horaria es GMT +2. Ahora son las 10:23:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi