怎样动态改变vcl组件的事件响应代码？

Question

我想让一个button在不同情况下执行不同的功能，除了在CLICK事件中加
入大量判断语句外，能不能在运行时改变click事件的代码内容？

Answer 1

你只要动态改变它的实现过程就可以了。象下面这样
   Case Index of 
   1 :  Button1.OnClick :=  btnClick1;
   2 :  button1.OnClick := btnClick2;
   end;其中btnClick1, btnClick2都是自定义过程，他们的申明必须和Button1的onclick事件实现过程一样。OnClick(Sender : TObject);

Answer 2

还有一点想请教：
 以上例子中btnClick1、btnClick2有什么要求，
 是不是随便定义一个自己的过程就可以？