“用同一個.scx文件，是可以生成多個同樣的表單實例的”
是说通过name 不同的名称来实现么？
“你不妨換個寫法，用release 表單2，這是直接釋放內存變量，試試看。”
试了下release 表单2，还是不行。
而且我把表单1中的thisform.release换成了release 表单1，也不能退出了。

另外，请帮忙解答一下.scx和form的关系或区别，以及一个.scx中可以有多个form么？

就是用NAME命名變量，下面兩條指令用同一個.scx類生成兩個表單窗體，它們的內容是完全一樣的，但是兩個不同的窗體。

DO FORM 表單1.scx NAME form1
DO FORM 表單1.scx NAME form2

你可以在代碼通過修改form1.top的值來看看，form1窗體改變了位置但form2不會變，可見它們互不干擾。

我不知道你的.scx設計中有沒有使用了WindowType=1之類的東西，跟ShowWindow屬性的設置也有點關係，甚至裏面有沒有read events，這些都無法知道，它們可能影響你不能關閉別的表單。通常的做法，是在.prg指令序列中啟動窗體和關閉的，而不是在表單代碼中啟動和關閉窗體的。我沒有測試過你的那種關閉法，或者別人有這方面的實踐，看人家怎麼說吧。

我寫程序，只有.prg，沒有寫.scx的，窗體和控件都在.prg中寫，所以真的不熟悉那種情況。以前剛接觸VFP的時候，也嘗試過那樣寫程序，但很快就放棄了，我覺得那不是好方法，無法讓我為所欲為。


[ 本帖最后由 TonyDeng 于 2012-2-18 14:25 编辑 ]

多谢。我是在主程序prg中用了read event。。。
由于你没用过.scx，所以它和form的区别，没能给出确切答案。我只是猜测，一个scx对应一个form两者就是一个东西。
全部用代码生成窗体和控件，我不会。
我只能用最简单的方法，拖拽生成控件，进入方法或事件来写代码。。。

另外，期待更多前辈指点迷津，我猜测的对不对？

[ 本帖最后由 yttv8 于 2012-2-18 14:26 编辑 ]

忽然又发现一个问题，修改窗体form1的top值是thisform.top=100，而用它的名称form1.top=100不行
那form的name属性有个啥用？
开始我还以为 do form 表单1.scx   默认会使用name属性的值作为实例名
但是看你的解释，是以“表单1”作为实例名了。

你運行看看

Form1 = CREATEOBJECT("my_Form")
Form1.Show
READ EVENTS
RETURN 

DEFINE CLASS my_Form AS Form
    ControlBox = .F.
    Width = 600
    Height = 400
    AutoCenter = .T.
   
    ADD OBJECT Command1 AS CommandButton WITH Caption = "開啟新窗口", Width = 100, Height = 25
    ADD OBJECT Command2 AS CommandButton WITH Caption = "關閉新窗口", Width = 100, Height = 25, Enabled = .F.
    ADD OBJECT Command3 AS CommandButton WITH Caption = "關閉本窗口", Width = 100, Height = 25
   
    PROCEDURE Activate
        WITH Top = ThisForm.Height - .Height - 5
            .Left = 10
        ENDWITH
        WITH Top = Top
            .Left = Left + WITH Top = Top
            .Left = Left +  ENDPROC
   
    PROCEDURE Command1.Click
        IF VARTYPE(Form2) != "O"
            PUBLIC Form2
            Form2 = CREATEOBJECT("Form")
            WITH Form2
                .Caption = "新窗口"
                .ControlBox = .F.
                .Top = 100
                .Left = 50
                .Show
            ENDWITH
            WITH ThisForm
                .Command2.Enabled = .T.
                .Command3.Enabled = .F.
            ENDWITH
        ENDIF
    ENDPROC
   
    PROCEDURE Command2.Click
        RELEASE Form2
         = .T.
    ENDPROC
   
    PROCEDURE Command3.Click
        RELEASE ThisForm
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE

換成這樣再比較一下

Form1 = CREATEOBJECT("my_Form")
Form1.Show
READ EVENTS
RETURN 

DEFINE CLASS my_Form AS Form
    ControlBox = .F.
    Width = 600
    Height = 400
    AutoCenter = .T.
   
    ADD OBJECT Command1 AS CommandButton WITH Caption = "開啟新窗口", Width = 100, Height = 25
    ADD OBJECT Command2 AS CommandButton WITH Caption = "關閉新窗口", Width = 100, Height = 25, Enabled = .F.
    ADD OBJECT Command3 AS CommandButton WITH Caption = "關閉本窗口", Width = 100, Height = 25
   
    PROCEDURE Activate
        WITH Top = ThisForm.Height - .Height - 5
            .Left = 10
        ENDWITH
        WITH Top = Top
            .Left = Left + WITH Top = Top
            .Left = Left +  ENDPROC
   
    PROCEDURE Command1.Click
        IF VARTYPE(Form2) != "O"
            PUBLIC Form2
            Form2 = CREATEOBJECT("my_NewForm")
            WITH Form2
                .Caption = "新窗口"
                .ControlBox = .F.
                .Show
            ENDWITH
            WITH ThisForm
                .Command2.Enabled = .T.
                .Command3.Enabled = .F.
            ENDWITH
        ENDIF
    ENDPROC
   
    PROCEDURE Command2.Click
        RELEASE Form2
         = .T.
    ENDPROC
   
    PROCEDURE Command3.Click
        RELEASE ThisForm
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE 

DEFINE CLASS my_NewForm AS Form
    Width = 300
    Height = 200
    Top = 100
    Left = 50
   
    nSeconds = 0
   
    ADD OBJECT lblTime AS Label WITH Caption = "", FontSize = 20, Alignment = 2, Width = 300, Height = 50, Top = 10, Left = 0
    ADD OBJECT tmrTimer AS Timer WITH InterVal = 1000
   
    PROCEDURE lblTime.Refresh
        LOCAL lnMinute, lnSecond
       
        lnSecond = MOD(ThisForm.nSeconds, 60)
        lnMinute = INT(ThisForm.nSeconds / 60)
        This.Caption = PADL(lnMinute, 2, '0') + ":" + PADL(lnSecond, 2, '0')
       
    ENDPROC
   
    PROCEDURE tmrTimer.Timer
        WITH ThisForm
            .nSeconds = .nSeconds + 1
            .lblTime.Refresh
        ENDWITH
    ENDPROC
   
ENDDEFINE

版主果然厉害

用WIN8啦？我才从WIN7降到XP

在我还不会用菜单的时候，我也是在一个窗口上用一个按钮去运行另一个表单的。返回都是另一个表单关后再回到开始的表单上的。

在表单1上运行 do form 表单2后，表单2就成了活动窗口。应该是不可以再在表单1上进行关闭表单2的操作的。理由：表单1是个大的房间，而表单2是大房间里面的一个套间，你在大房间里打开了小房间的门并进到里面了，人不退出来，外面是无法关的。要不然就是一个事故了，你自己回不了家呀

我不知道准确与否，但我是这样来理解的

[ 本帖最后由 wengjl 于 2012-2-18 16:15 编辑 ]

在期待Win8免費版的推出呢

关于楼主的问题，我写了两个简单的表单文件，你可以下载来运行看看。注意他们的文件名，name属性，caption属性的运用。