Alan;

OK.

Instantiate the form:

1.  The text box has focus (cursor in the text box)
     A.  Click on the button and the MessageBox “Text box valid” appears.

2.  Now the button has focus and click on it
     A. The MessageBox “button click” appears.

Tom


>Hi Tom,
>
>On your say-so, I just went back and tried it in VFP6. I don't get the buttonclick messagebox. You do? I wonder what's different. For me it operates in 6 the same as 9. I get the textbox message, but not the button click message.
>
>Could you please confirm for me exactly what you're seeing? Maybe it's a switch I have differently set somewhere.
>
>So we're on the same wavelength, the form comes up, and I click the button. I get one messagebox only. Do you get 2?
>
>>Alan;
>>
>>Your code works fine in VFP 6.0
>>
>>Tom
>>
>>
>>
>>>Running vfp9 on WinXP SP2.
>>>
>>>When I have a messagebox in a textbox valid, and, with the textbox having focus, I click on a button, the button's click event doesn't fire. Is this a bug, or is it supposed to happen this way?
>>>
>>>Here is some simple code. Note that if you change command1.click to command1.rightclick, the rightclick event will fire which makes me lean toward it being a bug.
>>>
>>>I thought it might make a difference if the messagebox didn't have to be closed manually, so I tried changing the

MessageBox("TextBox Valid")

to be

MessageBox("TextBox Valid",0,2000)

But it makes no difference. The button click doesn't fire.
>>>
>>>Anybody?
>>>

>>>oForm = CREATEOBJECT("Form1")
>>>oForm.Show
>>>READ events
>>>
>>>RETURN
>>>
>>>DEFINE CLASS form1 AS form
>>>  DoCreate = .T.
>>>  Caption = "Form1"
>>>  Name = "Form1"
>>>
>>>  ADD OBJECT text1 AS textbox WITH ;
>>>    Height = 23, ;
>>>    Left = 96, ;
>>>    Top = 48, ;
>>>    Width = 100, ;
>>>    Name = "Text1"
>>>
>>>  ADD OBJECT command1 AS commandbutton WITH ;
>>>    Top = 120, ;
>>>    Left = 96, ;
>>>    Height = 27, ;
>>>    Width = 84, ;
>>>    Caption = "Command1", ;
>>>    Name = "Command1"
>>>
>>>  Procedure Destroy
>>>    Clear Events
>>>  ENDPROC
>>>	
>>>  PROCEDURE text1.Valid
>>>    MessageBox("TextBox Valid")
>>>  ENDPROC
>>>
>>>  PROCEDURE command1.Click
>>>    MESSAGEBOX("button click")
>>>  ENDPROC
>>>
>>>ENDDEFINE
>>>