如何实现一键改变所有的表单背景颜色

试试设置一个全局变量，同时将这个变量保存好，程序启动时读入这个变量的值，然后在表单active事件中根据这个变量的值对表单背景进行动态更新。

在每个表单的active 中都用到这个变量吗？  能有简单点吗

觉得是个好课题，越简单越好。等高手回答。

此事易尔：建一表单集，将需要改变背景色的表单全部收入囊中→在表单集中的某一表单上建立你说的那“一键”(按钮)→在它的Click事件中写上：Thisformset.表单1名字.BackColor=RGB(XXX,XXX,XXX)→有几个表单就写几条这样的语句，一条语句占一行→保存表单并运行→试试你那“一键”的作用吧。

还可以照此设置一个恢复原背景色的“一键”，就是要先把初始RGB颜色抄下来，然后用在这个恢复键里。

不用表单集，直接在某一表单按钮上写上如下代码：

FOR m.formindex = 1 TO _SCREEN.FORMCOUNT
    WITH _SCREEN.FORMS(m.formindex)
        .BACKCOLOR=RGB(255,123,234)&&&&这里是你要改变的颜色rgb(r,g,b)
        .REFRESH
    ENDWITH
ENDFOR

刚才我测试成功，可以让所有运行的表单变化颜色，没有运行的，就不能变化。
如果要用快捷键来改变表单颜色，可将此代码保存为：changecolor.prg
然后在程序任何地方用

ON KEY CTRL+L do changecolor.prg&&CTRL+L是快捷键

[ 本帖最后由 月沐庭轩 于 2012-11-28 23:04 编辑 ]

如果目前未运行的表单，当它们在运行的时候统一成改变后的颜色，可以考虑二楼的办法。
我的想法是，将此颜色值保存在_screen.backcolor属性里，然后在每个表单的init事件中，写上如下代码

this.backcolor=_screen.backcolor

可不可以定义一个全局变量 然后在检验打开表单（调用函数）时加入这个变量以改变背景色  这样就不用每个表单都要定义一次    大家以为

当然是可以的，我在2楼已经给出了建议。

用宏变量代替表单名打开表单时 出现不是对象（windowtype=1）如何处理，又不改变表单模式属性