如何通过编程实现多个TmaskEdit控件的Onchange事件共享一个Procedure?

Question

真奇怪，你怎么不这样做：按Shift,点中你全部的TMasEdit，然后在Onchange事件属性选中某个事件，这样那130 个TMaskEdit不就对应你的什么什么处理过程了。

Answer 1

var
  i:integer;
begin
  for i:=0 to Form1.ComponentCount-1  do
  begin
    if (Components[i] is TMaskEdit) then
    (Form1.Components[i] as TMaskEdit).OnChange:=MyProcedure;
  end;
end;

Answer 2

接受答案了，我更喜欢enlightenment(阿明)　的方法。