Problema con TBitBtn

[lroblesco]

Hola:

Saben estaba haciendo una aplicacion donde utilizaba varios TBitbtn para dar mejor apariencia al programa. Lo que pasa es que tenia un TEdit y al programar su evento OnkeyPress ponia algo semejante a esto:

    if key=#13 then
 	   haz algo
    else
 	  haz otra cosa

lo que me dejo perplejo es que al hecer enter(intro) no ocurria nada, como si el IF no existiera, pero al pulsar cualquer otra tecla si entraba al bloque else.
Esto lo resolvi dejando de usar el TBitBtn y sustituyendolos por un TButton. Mi pregunta es: este componente tiene un error o posee alguna propiedad para que tenga este efecto?ahh uso Delph 6

[roman]

No creo que éste sea un problema del TBitBtn y te pasará incluso con un TButton con su propiedad Default en true. Prueba poniendo en false la propiedad Default de todos los TBitBtn que tengas (esta propiedad se pone automáticamente en true cuando seleccionas bkOk o bkYes como valor de su propiedad Kind).

Esta es una cuestión de diseño del botón estandar de Windows (del cual hereda TBitBtn). Al tener el estilo BS_DEFPUSHBUTTON intercepta el ENTER para que pueda oprimirse incluso sin tener el foco.

// Saludos