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

[mathsfan]

这里假定有一控件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控件时呢？
不知道大家理解我的意思没，呵呵。

[bdmh]

不懂，你该去说相声绕口令

[zshsuming]

...................

[varick_zhong]

给这100个按钮赋上同样的事件是吗?

[SQLDebug_Fan]

方法复制可以参考：

var
  ClickEvent: TNotifyEvent;
begin
  ClickEvent := btn1Click;
end;

[tgbd]

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

[BrownZhang]

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

[mathsfan]

哎，没人理解我的意思啊，最后我定义了事件数组去解决的，分就散给大家吧。