多按钮单击事件的共用

           当多个按钮的单击事件响应代码相同时，没有必要为每个按钮设计单击事件响应，可借用一个按钮的事件响应，以简化代码设计。设计步骤如下：

1.在 Button1 设计单击事件响应代码。

2.选中其它按钮。

3.单击事件列

4.单击下拉菜单

5.选中Button1Click事件

 

        还有另一种情况就是按钮类型不一样，就用不同类之间响应事件的公用：用if语句进行判断，用函数ClassNameIs,代码：
      if(Sender->ClassNameIs("TButton"))
     {
            ShowMessage(((TButton *) Sender)->Caption);
     }
     else
     {
           ShowMessage(((TMenuItem *) Sender)->Caption);
     }