FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Tecla de salida en un BTNGET ?
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Tecla de salida en un BTNGET ?
Posted: Wed Jun 18, 2008 03:04 AM
Amigos:

Con el siguiente c贸digo

Code: Select all Collapse
		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 Collapse
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Tecla de salida en un BTNGET ?
Posted: Wed Jun 18, 2008 04:54 AM

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.

Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Tecla de salida en un BTNGET ?
Posted: Wed Jun 18, 2008 12:11 PM

Jos茅 Luis:

Muchas gracias, problema resuelto.

Un abrazo

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions