Hi Fabio,
Yes, you're right. Looks like a bug to me. Can you return .F. from WHEN() instead?
>Hi Sergey,
>
>As you can answer this to me ? text1 can get focus.
>
>Test this:
>
>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>Caption = "gotfocus bug"
>Name = "Form1"
>
>ADD OBJECT text1 AS textbox WITH Left = 60, Top = 35, Name = "Text1",TabIndex=6
>
>ADD OBJECT text2 AS textbox WITH Left = 63, Top = 76, Name = "Text2",TabIndex=5
>
>PROCEDURE Activate
> this.text1.SetFocus
>ENDPROC
>
>PROCEDURE text1.GotFocus
>WAIT WINDOWS "gotfocus on :"+this.Name NOWAIT TIMEOUT 2
>ENDPROC
>
>PROCEDURE text2.GotFocus
>WAIT WINDOWS "gotfocus on :"+this.Name NOWAIT TIMEOUT 2
>NODEFAULT
>ENDPROC
>
>ENDDEFINE
>
>click on text2 and move mouse. you see loop ?
>
>Swap TabIndex, and replay test. Never problems.
>
>Fabio
--sb--