高手求助,在线等待!!

Question

我想写一个函数来控件整个工程的窗体,就是当用户激活工程中任意一个窗体里将窗体的Caption赋值给一个变量,不知这个代码该怎么去写.小弟还有一个问题就是怎么去控制所有有CLick事件的控件,就是当用户单击CLick事件的时候也跟上面一样将其Caption赋值给一个变量.

Answer 1

要不就只能在form active里编写，全部窗体继承该窗体。
要不然就来个函数。窗体一个一个写上调用
第二个问题...拦截消息

Answer 2

兄弟第一个问题就是有很多的主类窗体怎么办呢.第二个怎么去拦呢,我曾用applicationevent消息控件去拦过,不过在下遇蠢拦了没用,不知还有没有其它方法,请赐教!

Answer 3

1、很多的主类窗体?
指的是baseForm很多个？
那比如baseform不太多就baseform都加上form active编写caption:=??
要是没baseform
就自己继承form来个baseform,其它窗体都继承这个
2、拦了没用指什么？

Answer 4

写一个公共的unit，有一个全局变量
在formshow的时候把它的caption传给变量

Answer 5

现在一个Unit（某个窗体就行，如Form1）中在Public字段下定义一个公用变量，如publicstring就是你要的字符串，然后在每个窗体的OnActive事件中加入：
form1.publicstring:=formform***.caption第二个问题同理