Enter como Tab
 

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

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.

Hola tutuk!

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

Tal vez esa sea la razón.

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

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.

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

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

// Saludos

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