两个控件使用问题，比较简单

Question

1、我动态生成了三个按钮，Button[1],Button[2],Button[3],想实现他们的Click事件该如何关联
2、怎么让Label控件显示一定长度（比如30个字符）后自动换行

Answer 1

Button[1].onclick:=YOUR_procedure
自己定义一个跟onclick事件相同的过程即可

Answer 2

Button[1].onclick:=aaa(自定义的)procedure  aaa（）
begin
  Tbutton（sender）.类似的
end;

Answer 3

按照上面没能实现，能不能给个详细的例子为了简便，来个showmessage显示一段话好了我是这样写的
Button[1].onclick:=ButtonClick；procedure  ButtonClick
begin
  showmessage('click');
end;编译不通过

Answer 4

procedure Tform1.ClkForBt1(Send:tbutton);
.......button1.onclick=clkforbt1;
str:='asdfadsfdsfasdfdsfdsfsdfsdfsdfsfd';
if length(str)>30 then 
str:=copy(str,1,30)+#13+copy(str,31,length(str)-30);
label1.caption:=str;

Answer 5

  btn.OnClick := btnClick; 
  procedure TForm1.btnClick(Sender: TObject);
   procedure TForm1.btnClick(Sender: TObject);
   begin
     ShowMessage('1');
   end;

Answer 6

Button[1].onclick:=ButtonClick；procedure  ButtonClick
begin
  showmessage('click');
end;
你的方法要声明成对象方法
这样
procedure  Form1.ButtonClick(Sender: TObject)
begin
  showmessage('click');
end;

Answer 7

chwdong的方法只能正确显示第一行，我的文字很长，大概要几十行才能完成，我试着chwdong的方法用数组完成了，不过变量太多，请哪位高手帮忙写个简单的，我觉得可以用迭代写呀，不过我没写出来