Fraguibo escribió:
Hola jesus en tu comentario nos hablas de excabadoras y piedrecitas o sea algunos problemas que nos encontramos cuando realizamos algun trabajo, pero lo interesante es saber conque problema te encontraste y como lo solucionaste.
Fraguibo
Hola, Fraguibo (¿Paco?).
Lo que trataba de exponer en el comentario es lo 'facil' que, la mayoría de las veces, tenemos la solucion de cualquier problema y no la vemos por falta de conocimientos......
El problema en concreto era que necesitaba hacer que cuando estaba en un TEdit se pudiera pulsar una tecla de funcion (F3) para llamar al formulario de búsquedas. El problema se presentó porque el valor que devolvía F3 dentro del TEdit se correspondía un el ASCII de una letra (R, creo que era); total que si el usuario pulsaba la tecla R se lanzaba el mismo proceso que cuando se pulsaba F3. En esta situación estuve durante varios dias, hasta que encontre la solución (con ayuda) y era muy simple ya que en el mismo método que interceptaba F3 pongo:
// ****************************************************************************
METHOD EventInternalOnKeyDown( oSender, nKey ) Class XEditButton
// Comprobamos si existe alguna accion para F3
// ·········································································
IF IsCodeBlock( ::FButton:OnClick ) .AND. HiByte( GetKeyState( VK_F3 ) ) > 0 THEN Eval( ::FButton:OnClick, Self )
// ·········································································
... y listo!!!!!
¿Ok?.