关于sender和共享代码的问题(10分)

  • 主题发起人 sugarsun
  • 开始时间
在object inspector里面,选Events页,
将button1和button2的onClick都选为ButtonClick
 
也不算烦啦,如果有多个按钮可以用控件数组来做...

for i:=0 to ComponentCount-1 do
begin
if Components is TButton then
TButton(Components).OnClick:=ButtonClick;
end;
 
若有很多button,可以在form的onCreate里面写:
button1.onclick:=ButtonClick;
button2.onclick:=ButtonClick;
button3.onclick:=ButtonClick;
...
那就是copy就行了,比一个个设快的多。
 
楼上的多谢了,可惜分已经分配了,sorry
 
顶部