Button Action Code oGet:SetFocus NOT working

[shri_fwh]

Dear All ,

Please let me know where I am doing mistake...!

Below Button Action working but aoGET[1]:SetFocus() works only when PRESS SPACE BAR but it does NOT work PRESS ENTER KEY.

Code: Select all  Expand view  RUN

   @   070,   200  GET aoGET[ 1 ] VAR aPrdCat[2] SIZE 315, C_GETH PIXEL OF oWnd ;
                  COLOR C_FCLR, C_BCLR FONT oApp:oFontGet UPDATE
   
  .....

   @  300, 500 BUTTON oBtn1 PROMPT "&Save" SIZE C_BTNW , C_BTNH PIXEL OF oWnd  ;
      FONT oApp:oFontBTN1  ;
      ACTION ( mprdcat_save(@aPrdCat)  , oWnd:Update() , aoGET[ 1 ]:SetFocus() )
     
      // also tried below
      //ACTION ( mprdcat_save(@aPrdCat)  , oWnd:Update() ,  SetFocus( aoGET[ 1 ]:hWnd )  )


 

Thanks
Shridhar

[Enrico Maria Giordano]

Try

Code: Select all  Expand view  RUN

aoGET[ 1 ]:oGet:SetFocus()

EMG

[shri_fwh]

Dear Sir ,

It is working below code ...!

aoBtn[1]:oJump := aoGET[ 1 ]

Code: Select all  Expand view  RUN

 aoBtn[1]:bAction := < ||
                                                     mprgcomp_save(@aPrdComp)
                           oWnd:Update()
                           aoBtn[1]:oJump := aoGET[ 1 ]
                           SetFocus( aoGET[ 1 ]:hWnd )

                          >

 

Thanks you very much for your kind support.

Thanks
Shridhar

[Enrico Maria Giordano]

Dear Sir ,

It is working below code ...!

aoBtn[1]:oJump := aoGET[ 1 ]

Right, I forgot oJump.

EMG