紧急求教：关于控件事件的

Question

这里假定有一控件TButton：btnOk：
btnOk的onMoveDown事件是存在的，假定事件是执行A动作的，现在我在某种情况下（比如点击PopupMenu的某个TMenuItem：miA）需要onMoveDown事件执行B动作，然后我又点击PopupMenu的某个TMenuItem：miB，使onMoveDown事件又重新是执行A动作的事件，听听各位高手的意见。
顺便把我的想法说一下：
点miA时：把A动作事件先赋给某个事件Temp，然后onMoveDown事件执行B动作事件；
点miB时，onMoveDown事件又从事件Temp赋值回来；
但是如果一个窗体内有10个或者100个TButton控件时呢？
不知道大家理解我的意思没，呵呵。

Answer 1

方法复制可以参考：var
  ClickEvent: TNotifyEvent;
begin
  ClickEvent := btn1Click;
end;

Answer 2

用ActionList,配合参数传递，就可以达到楼主要的效果。

Answer 3

s:string
s=1 ;
if s=1 then