> PROCEDURE text2.GotFocus > Textbox::Gotfocus > This.SelStart = 0 > This.SelLength = 255 > NODEFAULT > ENDPROC >>
>Public oForm >oForm = CreateObject("form1") >oForm.Show() >* > > >DEFINE CLASS form1 AS form > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT text1 AS textbox WITH ; > Height = 25, ; > Left = 60, ; > Top = 60, ; > Width = 97, ; > Name = "Text1" > > > ADD OBJECT text2 AS textbox WITH ; > Alignment = 3, ; > Value = 123.45, ; > Height = 25, ; > Left = 60, ; > Top = 108, ; > Width = 97, ; > Name = "Text2",; > selectOnentry = .t. > > > PROCEDURE text2.GotFocus > Textbox::Gotfocus >* This.SelStart = 0 >* This.SelLength = 255 > NODEFAULT > ENDPROC > > >EndDefine >