暴汗！！！一个计时器竟然搞不定
表单form1上有timer1，有个label，有个command。
想实现的效果是：表单生成时，不触发timer，点击command后触发timer，interval为500，以实现标签的闪烁提示。
form1的init中：thisform.timer1.Enabled=.F.  &&不触发timer
command中：thisform.timer1.Enabled =.T.　&&启动timer
timer１的timer中：
IF thisform.label1.Visible =.T.
thisform.label1.Visible =.F.
ELSE
thisform.label1.Visible =.T.
ENDIF
运行后，timer事件没触发，label1也没显示，更没闪烁。百思不得其解，可能是什么原因导致的呢？

奇怪的是，修改一下：删除form1的init中：thisform.timer1.Enabled=.F. ，command中：thisform.timer1.Enabled =.F.，则表单生成时就出现闪烁的标签，点击command后计时器停止。

请教：前面那段设置，为什么不能触发timer？谢谢！

** test.prg
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as form
    ADD OBJECT label1 as label WITH left=10,top=10,caption="闪...闪..."
    ADD OBJECT cmd1 as commandbutton WITH left=80,top=10,height=22,caption="开关"
    ADD OBJECT timer1 as timer WITH interval=500,enabled=.F.
    PROCEDURE timer1.timer
        thisform.label1.visible = !thisform.label1.visible
    ENDPROC
    PROCEDURE cmd1.click
        thisform.timer1.enabled = !thisform.timer1.enabled
    ENDPROC   
ENDDEFINE

谢谢吹版！和我的需求可能有点不同，怪我没说清楚！！！

将你运行的代码给人家测试一下不就好了吗

测试了一下，楼主所说的问题根本不存在。为什么不将你的代码附上呢？

谢谢大家，下面是相关附件：

只看到一个DOCX文件?
要的是VFP的代码相关文件，这样才能在VFP里测试看看问题所在

楼主的文件属于"绝密"等级

总共两行代码就行了啊。
设计时指定timer1的Enabled值为.f.，Interval 的值=500，没必要放在初始化中
按键中一句
thisform.timer1.Enabled=.t.开始

*****
thisform.timer1.Enabled=.f.结束

timer1中一句
thisform.label1.Visible=!thisform.label1.Visible
另外，吹版主的是正解啊。他是运行时建立对象。更加通用的面向对象程序的设计方法，C++ C J+………………

[此贴子已经被作者于2021-6-13 15:14编辑过]

ADD OBJECT timer1 as timer WITH interval=500,enabled=.F.
这不算是运行时建立的对象，是载入类定义的对象，与载入表单（SCX）定义的对象一样，其中 WITH 子项相当于表单设计器的“属性”设置。
如果在类方法过程中调用AddObject()方法创建的对象才是运行时建立的对象。