With VFP8 the code below works perfect. When I click on text? he is selected.
But with VFP9 when I click with mouse on textbox? he is not selected.
I don't understand where is my mistake.
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 123
Width = 319
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT text1 AS textbox WITH ;
Alignment = 3, ;
Value = 0.00, ;
Height = 25, ;
Left = 34, ;
SelectOnEntry = .T., ;
Top = 27, ;
Width = 81, ;
Name = "Text1"
ADD OBJECT text2 AS textbox WITH ;
Alignment = 3, ;
Value = 0.00, ;
Height = 25, ;
Left = 163, ;
SelectOnEntry = .T., ;
Top = 27, ;
Width = 81, ;
Name = "Text2"
PROCEDURE text1.GotFocus
TextBox::GotFocus
ENDPROC
PROCEDURE text2.GotFocus
TextBox::GotFocus
ENDPROC
ENDDEFINE
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
