Encontré esto entre mis recuerdos, que de recuerdos tienen poco pues leo mi propio código de entonces y no entiendo nada.
Código:
* Introducir Teclaso Corrector. Para usarse antes de un Read (o continuaci¢n
* de Read) que leer botones, cajas de verificaci¢n o botones radio.
Procedure IntrTecCor
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Si el £ltimo teclaso antes de un Read es un click de rat¢n y el *
* primer objeto de lectura es un bot¢n, una caja de verificaci¢n *
* o un bot¢n radio, FoxPro comete el grav¡simo error de no *
* resaltar tal objeto, por lo que yo utilizo las siguientes dos *
* l¡neas para asegurar que la £ltima pulsaci¢n antes del Read sea *
* de teclado. Keyboard mete el teclaso en el buffer de teclado e *
* InKey lo extrae de ah¡ (para que no sea le¡do en el Read). *
* As¡, FoxPro "piensa" que la £ltima pulsaci¢n del usuario fue de *
* teclado y s¡ resalta el objeto correctamente. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Keyboard "{F2}" Plain Clear
= InKey ()
Return