程序正在运行中出现报警的情况时，立即在右下角弹出报警提示框，显示报警的内容。在VFP中如何实现，这是一个很实用的功能。请高手指点！

弹出报警提示框之后又怎样？

吹版主好！就是程序有几个表单在运行，不断获取温度压力等数据，在温度或压力过高时，在右下角弹出一个对话框，显示简单的报警内容，一直显示，直到用户点击“取消”后，报警框消失。

你用wait语句

首先谢谢gs2536785678，用WAIT命令能实现这功能，但我想实现的是一个警示框，可以多行字，字的颜色可以设定，有关闭按钮，类似表单上加个文本框这样的。用WAIT有这几个不足：文本无颜色；只能一行文字消息；键盘或鼠标一有动作，消息框就没了。

messagebox()

请我喝酒吧，我告诉你。

windows也有个冒泡功能
用VFP的form也可以，如：

of = CREATEOBJECT("form_msg","abcd1234")
of.show(1)
RETURN

DEFINE CLASS form_msg as Form
    left = SYSMETRIC(21)-300
    top = SYSMETRIC(22)-200
    width = 300
    height = 200
    AlwaysOnTop = .T.
    DeskTop = .T.
    WindowType = 1
    ADD OBJECT edit1 as editbox WITH top=10,left=10,BorderStyle=0,ScrollBars=0
    PROCEDURE init(cMsg)
        this.edit1.value = cMsg        
    ENDPROC
ENDDEFINE

吹版的应该可以满足要求啦

1、首先设置触发条件
on error do 报警

2、报警过程文件
messagebox()