Enter como Tab

tutuk · #1 17/12/2004

hola como estan
la pregunta es la siguiente:
tengo delphi6, w98 y tsec es un tedit

Que puede estar pasando que no me funciona bien esto

procedure Tfppal.tsecKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tplaqueo.SetFocus;
end;

cuando presiono Enter no hace nada, pero si presiono SHIFT+Enter si funciona

desde ya muchas gracias

marcoszorrilla · #2 17/12/2004

Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  Edit2.SetFocus;
end;

Pues acabo de hacer la prueba y funciona correctamente con <<Enter>> y con <<Cambio + Enter>>

Por qué no eliminas el Tedit y lo vuelves a crear.

Un Saludo.

[Héctor Randolph] · #3 17/12/2004

Hola tutuk!

Ese comportamiento es típico si utilizas una portátil.

Tal vez esa sea la razón.

roman · #4 17/12/2004

Como dice HECTOR RANDOLPH, esto se ha notado últimamente en los foros aunque yo en mi portátil no tengo ningún problema. Me da la impresión de que es una cuestión de drivers. Posiblemente no tengan actualizado el driver del teclado o algunas marcas no hacen una correcta implementación.

Sería interesante rastrear el problema, por ejemplo viendo qué pasa con el evento OnKeyDown, ¿detecta el ENTER o tampoco?

// Saludos

tutuk · #5 18/12/2004

hola gracias por las respuestas.

les cuento que no tengo una portatil, tengo una de escritorio, lo que si tengo un teclado con funciones especiales marca (BTC Millennium), en el evento keydown paso lo mismo, lo raro es que en otro sistema que hice anteriormente me funcionaba bien, será que algun componente instalado me lo haya modificado?

no creo que sea el teclado porque genero el instalador y cuando lo instalo en otro pc pasa lo mismo.

gracias.

DarKraZY · #6 18/12/2004

Puede ser que gestiones también el evento OnKeyPress del formulario???
Y anules allí la Key presionada?

roman · #7 18/12/2004

Quote:

Originally Posted by tutuk

será que algun componente instalado me lo haya modificado?

Es una posibilidad. ¿Por qué no creas un proyecto vacío en la misma pc e intentas detectar ahí el ENTER?

// Saludos

tutuk · #8 19/12/2004

hola ya lo resolvi

tenia un bitbtn con la propiedad default=true;

y dentro del evento click del bitbtn verificaba si uno de los tedit.text='' le daba abort;

gracias por su tiempo