PROCEDURE text2.GotFocus Textbox::Gotfocus This.SelStart = 0 This.SelLength = 255 NODEFAULT ENDPROCor
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