BUG: Commandbutton.SetFocus() in Form Init Sets Default = .T.

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following code from a program (.prg) file:

   PUBLIC oform1
         oform1=CREATEOBJECT("form1")
         oform1.SHOW
         RETURN
   
         DEFINE CLASS form1 AS FORM
            AUTOCENTER = .T.
            HEIGHT = 408
            WIDTH = 389
            CAPTION = "Form1"
            NAME = "Form1"
   
            ADD OBJECT text1 AS TEXTBOX WITH ;
               HEIGHT = 23, ;
               LEFT = 108, ;
               TOP = 48, ;
               WIDTH = 100, ;
               NAME = "Text1"
   
            ADD OBJECT command1 AS COMMANDBUTTON WITH ;
               TOP = 216, ;
               LEFT = 120, ;
               HEIGHT = 27, ;
               WIDTH = 84, ;
               CAPTION = "Command1", ;
               NAME = "Command1" , ;
               TABINDEX = 1, ;
               DEFAULT = .F.
   
            ADD OBJECT text2 AS TEXTBOX WITH ;
               HEIGHT = 23, ;
               LEFT = 108, ;
               TOP = 84, ;
               WIDTH = 100, ;
               NAME = "Text2"
   
            PROCEDURE INIT
               * SetFocus() here causes the behavior.
               ThisForm.Command1.SetFocus()
               * Uncomment the following line for Work-around.
               * Thisform.Command1.Default = .F.
            ENDPROC
   
            PROCEDURE Command1.CLICK
               WAIT WINDOW PROGRAM() TIMEOUT 1
            ENDPROC
   
         ENDDEFINE
   					

2. Tab once to move to the first text box.
3. Press ENTER. RESULTS: The WAIT WINDOW displays, indicating that the command button's Click event fired.

Workaround