DOCUMENT:Q193292  22-MAY-1999  [foxpro]
TITLE   :BUG: Commandbutton.SetFocus() in Form Init Sets Default = .T.
PRODUCT :Microsoft FoxPro
PROD/VER:MACINTOSH:3.0b; WINDOWS:3.0,3.0b,5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:kbContainer kbCtrl kbvfp300 kbvfp300bBUG kbvfp500 kbvfp500a kbvfp500aBUG kbvfp600 kbvfp

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0 
 - Microsoft Visual FoxPro for Macintosh, version 3.0b 
-------------------------------------------------------------------------------

SYMPTOMS
========

You have created a form that contains a command button. The command button's
Default property is set to .F. In the form Init method, you call the SetFocus()
method of the command button. When the form displays, the Default property of
the command button is set to .T. and the command button becomes the default
button.

RESOLUTION
==========

Set the Default property of the Commandbutton to .F. after calling the
SetFocus() in the Init method.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.

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
----------

To demonstrate the workaround, uncomment the line of code that sets the Default
property of the Commandbutton to .F.

NOTE: In Visual FoxPro for the Macintosh, KEYCOMP must be set to WINDOWS for the
behavior described in this article to occur.
(c) Microsoft Corporation 1999, All Rights Reserved.
Contributions by Jim Saunders, Microsoft Corporation


Additional query words:

======================================================================
Keywords          : kbContainer kbCtrl kbvfp300 kbvfp300bBUG kbvfp500 kbvfp500a kbvfp500aBUG kbvfp600 kbvfp600bug kbGrpDSFox 
Technology        : kbHWMAC kbOSMAC kbVFPsearch kbAudDeveloper kbVFP300bMac kbVFP300 kbVFP300b kbVFP500 kbVFP600 kbVFP500a
Version           : MACINTOSH:3.0b; WINDOWS:3.0,3.0b,5.0,5.0a,6.0
Issue type        : kbbug
Solution Type     : kbnofix

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1999.