| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Xpto Lt

Registrado: 24 Abr 2003Mensajes: 92Ubicación: Pamplona
|
Publicado: Vie 04 Jun, 2004 3:09 pm Asunto: Lector código de barras |
|
|
Hola a todos, estoy haciendo un pequeño programilla para leer los códigos de barras y mi problema es el siguiente:
Quiero que cada vez que se apriete el botón del lector de códigos para leer un artículo, éste sea puesto en la casilla Edit1, no en cualquier casilla en la cual se encuentre situado el Focus() del cursor.
Es decir, que cuando lea que sitúe la lectura en la casilla 1, no en cualquier otra aunque el cursor se encuentre en otra.
Espero haberme explicado bien.
Saludos y gracias. |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez Master


Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
Publicado: Lun 07 Jun, 2004 7:12 pm Asunto: |
|
|
Utiliza el Evento KeyDown y KeyPreview a true de Form..
Seleccionas todos tus componentes del Form, posteriormente,
y en el evento KeyDown
le indicas que se redireccione,
saludos.. _________________
 |
|
| Volver arriba |
|
 |
Xpto Lt

Registrado: 24 Abr 2003Mensajes: 92Ubicación: Pamplona
|
Publicado: Lun 07 Jun, 2004 8:27 pm Asunto: |
|
|
No se si te entiendo bien pero es ésto lo que me dices:
Primero pongo El KeyPreview=true en el form1;
Luego en el evento OnKeyDown del form1 pongo Edit1->SetFocus();
es eso???
Saludos y gracias |
|
| Volver arriba |
|
 |
Xpto Lt

Registrado: 24 Abr 2003Mensajes: 92Ubicación: Pamplona
|
Publicado: Lun 07 Jun, 2004 8:39 pm Asunto: |
|
|
| Con lo que he puesto ahora me viene el problema de que se come el primer dígito del código de barras al leer y el resto me lo pone, qué cabrón je je je. |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez Master


Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
Publicado: Mar 08 Jun, 2004 3:48 pm Asunto: |
|
|
Todo Esta Correcto.. nada mas agregale, lo siguiente, al Metodo KeyDown
| Código: |
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Key){
this->Edit1->Text = Key;
this->Edit1->SetFocus();
}
}
|
Algo rapido. pero mas adelante lo corrigo _________________
 |
|
| Volver arriba |
|
 |
Xpto Lt

Registrado: 24 Abr 2003Mensajes: 92Ubicación: Pamplona
|
Publicado: Mie 09 Jun, 2004 10:39 am Asunto: |
|
|
gracias por la respuesta, voy a mirarlo haber si me funciona
Saludos |
|
| Volver arriba |
|
 |
|