FoxPro/Visual FoxPro - Minimizar Formulario con click fuera del form?

   
Vista:

Minimizar Formulario con click fuera del form?

Publicado por Henry Roman henryromans@hotmail.com (29 intervenciones) el 04/09/2013 05:11:38
Hola tengo un formulario principal del sistema, y el asunto es que deseo que si alguien da click fuera del formulario principal, es decir en cualquier parte del escritorio, el formulario principal se minimize.

Agradezco link, ayuda o información que me puedan ayudar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Minimizar Formulario con click fuera del form?

Publicado por eduardo flacosakeo@hotmail.com (16 intervenciones) el 09/09/2013 14:49:10
En el procedimiento lostfocus del formulario escribi thisform.windowstate=1.
cuando pierde el foco el formulario se minimiza. Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Minimizar Formulario con click fuera del form?

Publicado por Fidel (558 intervenciones) el 12/09/2013 00:21:25
Eduardo:
Si haces lo que dices, cada vez que abras un formulario secundario se te minimizará el principal (junto con el secundario). Tendrás que cliquear en la barra para volver a verlo. Sería un gran fastidio.
Lo que está intentando Henry es que cuando haces click fuera del sistema (barra de windows, escritorio, etc) automáticamente se minimice el form (que es el principal del sistema por lo que tiene que ser ShowWindow=2.).

Una alternativa es utilizar BindEvent, atrapando el mensaje de Windows WM_NCACTIVATE = 0x86
Para esto agregamos un Método al formulario, que podemos llamar "gAccion"
*LOAD
BINDEVENT(0,134,thisform,"gAccion")

* Método delegado agregado al form "GACCION"
LPARAMETERS pPar1,pPar2,pPar3,pPar4
IF ppar3=0.and.ppar4=0 && si ppar3=1 detecta Activate. Si pPar4#0 se abre un form secund.
thisform.WindowState= 1
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar