Question

delphi编程中同一个窗口下第二个窗口如何调用第一个窗口的时事件

Answer 1

传第一层窗体的控件值。
在第二层窗体声明一个控件变量FormVars['Form']
然后在第一层窗体调用第二层窗体时传值WKW_TARGET.FormVars['Form'] := WKW_SOURCE;
之后调第一个窗体的事件就直接FormVars['Form'].Perform(xxxx,0,0);这样调。

追问

不好意思刚刚问题写错了，应该是“同一个工程下第二个窗口如何调用第一个窗口的事件”，可不可以帮我写一下详细代码？感激不尽

追答

如果第一个窗体跟第二个窗体有被调用关系，就在调用的事件那个那儿写上WKW_TARGET.FormVars['Form'] := WKW_SOURCE;传值，在窗体二那儿用控件窗体变量FormVars['Form']存着窗体一的控件，然后用FormVars['Form'].Perform(xxxx,0,0);来调用窗体一的事件；
如果第一个窗体跟第二个窗体没有被调用关系，就看你窗体二有没有声明为全局变量这么大的域了，如果有声明为全局窗体变量，则用窗体变量名（譬如FrmNo2Win这样）来调用事件即可，例如FrmNo2Win.Perform(xxxx,0,0);
以上情况都不是，我也得抛异常了……

Answer 2

在uses中添加窗口1单元就行了啊