HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main()
DEFINE WINDOW Form_1 AT 219 , 253 WIDTH 678 HEIGHT 426 ;
	TITLE "Main Form" MAIN ON INIT Second_Form()

END WINDOW
MAXIMIZE WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil

Function Second_Form()
DEFINE WINDOW Form_2 AT 200 , 400 WIDTH 478 HEIGHT 426 ;
	TITLE "Second Form" CHILD ON INIT Third_Form()
	
    DEFINE BUTTON Button_1
	    ROW    50
	    COL    50
	    WIDTH  100
	    HEIGHT 28
	    ACTION (Return_Third(),SetProperty("Form_2","Label_1","VISIBLE",.F.))
	    CAPTION "Back to Third"
	    FONTNAME "Arial"
	    FONTSIZE 9
	    TOOLTIP ""
	END BUTTON
	
	DEFINE LABEL Label_1
	    ROW    200
	    COL    50
	    WIDTH  220
	    HEIGHT 48
	    VALUE "No focus on Third Form...  :("
	    FONTNAME "Arial"
	    FONTSIZE 9
		VISIBLE .F.
	    BACKCOLOR Nil
	    FONTCOLOR RED
	END LABEL

END WINDOW
ACTIVATE WINDOW Form_2
Return Nil

Function Third_Form()
DEFINE WINDOW Form_3 AT 50 , 100 WIDTH 200 HEIGHT 300 ;
	TITLE "Third Form" CHILD ON LOSTFOCUS Return_Third()
	
	DEFINE LABEL Label_1
	    ROW    50
	    COL    10
	    WIDTH  200
	    HEIGHT 48
	    VALUE "Click on Second Form to see if LOSTFOCUS works"
	    FONTNAME "Arial"
	    FONTSIZE 9
	END LABEL
		
END WINDOW
ACTIVATE WINDOW Form_3
Return Nil

Function Return_Third()
DoMethod("Form_3","SetFocus")
SetProperty("Form_2","Label_1","VISIBLE",.T.)
Return Nil

Code: Select all

Function Return_Third()
	DoMethod("Form_3","SetFocus")
	SetProperty("Form_2","Label_1","VISIBLE",.T.)
Return Nil

Code: Select all

#include <hmg.ch>

Function Main()
DEFINE WINDOW Form_1 AT 219 , 253 WIDTH 678 HEIGHT 426 ;
   TITLE "Main Form" MAIN ON INIT Second_Form()

END WINDOW
MAXIMIZE WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil

Function Second_Form()
DEFINE WINDOW Form_2 AT 200 , 400 WIDTH 478 HEIGHT 426 ;
   TITLE "Second Form" CHILD ON INIT Third_Form() 
   
    DEFINE BUTTON Button_1
       ROW    50
       COL    50
       WIDTH  100
       HEIGHT 28
       ACTION (Return_Form_3())  //////////////////////////////// Return_Form_3()
       CAPTION "Back to Third"
       FONTNAME "Arial"
       FONTSIZE 9
       TOOLTIP ""
   END BUTTON
   
   DEFINE LABEL Label_1
       ROW    200
       COL    50
       WIDTH  220
       HEIGHT 48
       VALUE "No focus on Third Form...  :("
       FONTNAME "Arial"
       FONTSIZE 9
      VISIBLE .F.
       BACKCOLOR Nil
       FONTCOLOR RED
   END LABEL

END WINDOW
ACTIVATE WINDOW Form_2
Return Nil

Function Third_Form()
DEFINE WINDOW Form_3 AT 50 , 100 WIDTH 200 HEIGHT 300 ;
   TITLE "Third Form" CHILD ON GOTFOCUS EntraForm3() ON LOSTFOCUS Return_Third()    ////////////////ON GOT FOCUS
   
   DEFINE LABEL Label_1
       ROW    50
       COL    10
       WIDTH  200
       HEIGHT 48
       VALUE "Click on Second Form to see if LOSTFOCUS works"
       FONTNAME "Arial"
       FONTSIZE 9
   END LABEL
      
END WINDOW
ACTIVATE WINDOW Form_3
Return Nil

Function Return_Third()
*	DoMethod("Form_3","SetFocus")   //////////////////////////////QUITAR ESTA LINEA
	SetProperty("Form_2","Label_1","VISIBLE",.T.)
Return Nil

Function EntraForm3()
	SetProperty("Form_2","Label_1","VISIBLE",.F.)
Return Nil

PROCEDURE Return_Form_3()
	DoMethod("Form_3","SetFocus")
RETURN NIL