Enter como Tab

[tutuk]

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]

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]

Hola tutuk!

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

Tal vez esa sea la razón.

[roman]

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]

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]

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

[roman]

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]

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