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