不好意思各位老大。真的是没有分拉

Question

我有100个button怎么样把第一个button的Button1Click事件循环给剩下的99个呢？
使剩下的99个button也有ButtonClick事件的发生。

Answer 1

看你可怜：var
  i: integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
    if Components[i] is TButton then
      TButton(Components[i]).OnClick :=Button1Click;
end;

Answer 2

哈哈，首先对你表示崇高的敬意：
用到没分的国手真的是破天荒看到！解决：这些按钮命名较统一的话就好办，或者它们的tag属性较有规律也好办。
举例：
for i:=1 to 99 do 
TButton(FindComponent('Btn'+IntToStr(i))).OnClick:= myClick;  //myClik是一个过程它的参数与按钮点击处理程序一致。自己去研究吧。

Answer 3

to  leeky(雅痞·千年虫)myclick怎么样传参数。帮人帮到底呀！

Answer 4

fei19790920(饭桶的马甲) 
同意他的方法。
直接接查找窗体上的BUTTON控件。。