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