高手在哪里啊，一个比较复杂的问题啊。

Question

如何传一个以按钮事件为参数的参数啊：
比如：一个Frmnew窗口有个新增按钮，新增的是人员基本资料，但是人员的基本资的新增事件在基础资料模块中。怎么把基础资料模块中的人员新增事件传给Frmnew窗口中的新增按钮。另外，点一下Frmnew窗口的按钮，显示的是什么窗体呢，具体怎么做。谢谢了、

Answer 1

把公用的方法写在一个unit中，需要用到就uses它。

Answer 2

sorry；开个玩笑了；回去好好看书；

Answer 3

在FrmNew的单元文件（设为： UFrmNew）中引用基础单元文件（设为：UFrmBase）
然后让新增的按钮click指向基础单元中的按钮click事件；Unit UFrmNew
interface
...implemention
uses UFrmBase ;procedure myprocedure();
begin
  with TButton.create(self) do
  begin
    parent := self;
    top := 100;
    left := 100;
    onclick := FrmBase.Button1click;
  end;
end;