以下是引用吹水佬在2016-3-31 08:01:50的发言：

示例
** test.prg
of = CREATEOBJECT("form1")
of.show
READ EVENTS
CLEAR ALL
RETURN

DEFINE CLASS form1 as Form
    ShowWindow = 2
    Top = 200
    Left = 300
   
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,caption="Test"
    ADD OBJECT edit1 as editbox WITH top=40,left=10,height=200
   
    PROCEDURE cmd1.click
        LOCAL of2
        of2 = CREATEOBJECT("form2")
        of2.show
        FOR i = 1 TO 10
            of2.ddProgress = i/10
            thisform.edit1.SelText = TRANSFORM(i)+0h0D0A
            INKEY(1)
        ENDFOR
        *IF VARTYPE(of2) == "O"
        *    of2.release
        *ENDIF
    ENDPROC

    PROCEDURE Unload
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

DEFINE CLASS form2 as Form
    ShowWindow = 1
    DeskTop = .T.
    AutoCenter = .T.
    Width = 300
    Height = 100
   
    ddProgress = 0
   
    ADD OBJECT label1 as label WITH top=20,left=20,autosize=.T.,caption="请稍等......"
    ADD OBJECT Shape1 AS Shape WITH top=50,left=20,height=25,width=this.Width-40
    ADD OBJECT Shape2 AS Shape WITH top=50,left=20,height=25,Width=0,BackColor=0xFA9632,BorderStyle=0
   
    FUNCTION ddProgress_Assign(vNewVal)
        IF BETWEEN(vNewVal, 0, 1)
            this.Shape2.Width = this.Shape1.Width * vNewVal
        ENDIF
    ENDFUNC
ENDDEFINE

以下是引用吹水佬在2016-4-8 15:10:59的发言：


你用的应是VFP6，改改试试：
thisform.edit1.SelText = TRANSFORM(i)+chr(0x0D)+chr(0x0A)