如何做统一界面的工具栏
最近开发了进销存管理软件，每一个界面都是单独的窗口与按钮，但是发现重复的代码很多，例如：添加按钮，很多窗口的代码都差不多，因此在想如何将所有的界面中的添加按钮集成到主界面的一个工具栏的一个按钮上，可不知道怎么做。各位能不能给一个源码，或者思路最好是有源码，谢谢！！！
工具栏按钮有：添加-修改-删除-更新-取消-审核-记帐-记录集济览
[解决办法]
主界面的每个按钮中：
applicaiton.mainform.activeform．．．．．
[解决办法]
去月亮的那个链接看看
[解决办法]
做一个差不多了吧，然后用到具体的再改
[解决办法]
最简单的办法就是做一个通用的（功能基本类似的）模块，然后在开发工程中，要做一个在操作或界面类似的模块的时候，菜单：new - other 里面看到当前工程，里面选那个通用模块，可以看到很多功能按钮里面都是inherited ，代码就不用写了
[解决办法]
写一个编辑界面的基类TFrmEditBasic,然后所有相关的编辑界面都从TFrmEditBasic继承,我在程序中就是这样子实现的,基类写好了,具体使用的时候基本上不用写什么代码,只是有的方法需要重载.维护起来也比较方便.
[解决办法]
最简单的办法就是做一个通用的（功能基本类似的）模块，然后在开发工程中，要做一个在操作或界面类似的模块的时候，菜单：new - other 里面看到当前工程，里面选那个通用模块，可以看到很多功能按钮里面都是inherited ，代码就不用写了..
如果是操作不同的数据表怎么做呀？
[解决办法]
一个子表单的定义部分:
tPubfrm=Class(Tform)
public
procedure Addrecord;
procedure deleteRecord;
主表单中的工具栏中:
按下增加按钮:
if (self.activemdichild <> nil) and (self.activemdichild is tPubfrm) then
tPubfrm(activemdichild).addrecord;
