在VFP如何使用PostMessage|SendMessage发送消息给窗体

首先我们创建一个VFP窗体把窗体Caption设置为：“被发送PostMessage的表单”，表单文件保存为：test

 

然后我们添加一个表单窗体方法(postmessage)： 

 在postmessage添加如下代码：

 再创建一个表单用来发送消息给“被发送PostMessage的表单”，将其Caption设置为：“发送PostMessage的表单”,表单文件保存为“test1".添加一个timer用来不断给test表单发送当前时间。

 在表单LOAD中写入如下代码：声明三个函数

 

 在表单INIT中写入如下代码：

 在test1.Timer1()写入如下代码：

然后运行”test"，效果如下图：