Tecla de salida en un BTNGET ?

[Armando]

Amigos:

Con el siguiente código

Code: Select all  Expand view  RUN

      REDEFINE BTNGET aGets[03] VAR oCxp:PRV ID 301 OF oDlg;
         RESOURCE "Buscar" UPDATE;
         PICTURE "@ZK 99999";
         VALID ChkPrv(oDlg,aGets);
         ACTION (oCxp:PRV := BrwPrv(oDlg,aGets),ChkPrv(oDlg,aGets));
         MESSAGE "Código del proveedor"


En la función ChkPrv() tengo lo siguiente:

Code: Select all  Expand view  RUN

STATIC FUNCTION ChkPrv(oDlg,aGets)
IF GetAsyncKey(VK_UP) .OR.;
   GetAsyncKey(VK_SHIFT,VK_TAB)
   RETURN (.T.)
ENDIF
....
....


Estoy detectando con qué tecla se sale del BtnGet, ahora necesito perder el foco del BtnGet al momento de dar clic sobre un botón. la pregunta ¿ cómo puedo detectar que se ha salido del Btnget con un clic del ratón ?

Saludos

[joseluisysturiz]

Creo que si trabajas sobre ON CLICK puedes desabilitarlo o saber si se hizo click sobre el boton con algo como ON CLICK .T., es solo una idea general, seguro alguien mas aportara algo para ayudarte a solucionar tu problema.

[Armando]

José Luis:

Muchas gracias, problema resuelto.

Un abrazo