Club Builder

[laremi400]

Pues me pasa que esto:

if(Key == VK_TAB) Edit1->Color = clRed;

Solo me funciona en el evento KeyUp y no en el KeyPress o en el KeyDown. ¿Que puede ser?.

[Invitado]

Fijate que con otras teclas anda bien, proba:

if(Key == 'N') Edit1->Color = clRed;

En el caso de la tecla tab pareceria que no genera los otros eventos.

[_Leo]

Quizás te sirva esto:

    [Capturar la tecla TAB]
    https://cppbuilder.es/viewtopic.php?t=3386

[laremi400]

[_Leo]

Si lo vas a hacer dentro de tu componente quizás también te sea útil echarle un vistazo a WM_GETDLGCODE.

[laremi400]

Bueno, pues no hay manera. Si se pone este codigo en el form funciona correctamente, aunque da un warning.
Pero si lo pongo dentro de la clase del componente derivado del TCustomEdit no hace nada.
He intentado con el otro código, pero TCustomEdit no desciende de TAplicattion así no funciona.
He intentado reescribir el metodo Dispatch del componente y me deja compilarlo sin dar errores pero luego no hay forma de capturar un mensaje.
¿Alguna idea?.

[laremi400]

¡Jopé!. Casi nos chocamos!!!. Ahora mismo voy a mirarlo. Gracias _Leo.

[laremi400]

No lo consigo. He hecho lo siguiente dentro de mi componente:

protected:

void __fastcall WmGetDlgCode(TWMGetDlgCode& msg)
{
if(msg.Msg == DLGC_WANTTAB)
ShowMessage("se pulso tab");
//else inherited::Dispatch( &msg );
}

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_GETDLGCODE, TWMGetDlgCode, WmGetDlgCode)
END_MESSAGE_MAP(inherited)

(//else inherited::Dispatch( &msg ); si quito // tampoco funciona)
Y no parece funcionar. Además he estado mirando en Controls.hpp y Messages.hpp y encientro que la estructura TWMGetDlgCode es un typedef de TWMNoParams

struct TWMNoParams
{
unsigned Msg;
Word Unused[4];
int Result;
} ;

Y esto si que no lo entiendo. ¿Tengo que hacer la conparación como la he hecho (if(msg.Msg== etc)? .
La verdad es que es un tanto complicadillo el asunto. ¿Alguna sugerencia? y sobre todo ¿algun manual que trate de estas cosas que me puedas recomendar para no dar tanto el coñazo?
Mucha gracias.

[_Leo]

Si te fijas en la referencia del API no es así como se usa este mensaje, lo que tenemos es que responderle con las cosas que nos interesan, o sea, algo así para decirle que queremos la tecla TAB:

[laremi400]

[laremi400]

Y por cierto. Este coponente cuando esté acabdo lo colgaré en componentes, a pesar de que parece estar bastante parado el tema.

[laremi400]

OK Ya funciona y hace lo que yo quiero. Muchisimas gracias _Leo.

En cuanto a lo de "fijarme en la API". Soy un borrico y me lo había leído del tirón. Y mi inglés no es tan bueno como para hacer eso. Así que por si acaso a alguno le resulta útil lo he traducido. Puede haber alguna incorreción pero básicamente se entiende (espero):

El mensaje WM_GETDLGCODE es enviado al procedimiento de ventana asociado con un control. Por defecto, el sistema manipula todas las entradas de teclado hacia el control; el sistema interpreta cierto tipo de entradas de teclado como teclas de navegación de los “dialog box”. Para ignorar este funcionamiento el control puede responder hacia el mensaje WM_GETDLGCODE para indicarle los tipos de entrada que se desea procesar por si mismo.

Por otra parte me da un warning, relativo a que se repetira en la compilación en cada objeto. Ya miraré por qué.

Y por si no queda claro; ahora en el evento KeyPress del componente he puesto:
{
if(Key == VK_TAB) Color = clAqua;

if(Key == VK_RETURN) Color = clGreen;

TCustomEdit::KeyPress(Key);
}

Y funciona. el foco se queda "clavado" en mi componente y lo pinta de azul y no hace ni caso a la tecla TAB . Si se desea que pase al siguiente control hay que poner el form donde se coloca este componente:

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Key == VK_RETURN) Perform(WM_NEXTDLGCTL, 0, 0); //Para emular el TAB
}