如何为动态生成的控件（如button)生成onclick 等事件

问题点数：50、回复次数：7Top

1 楼kingofwang（王中王）回复于 2001-01-02 07:17:00 得分 10

TButton   *tem=new   TButton(Owner);  
  tem->Visible=ture;  
  tem->OnClick="某个点击函数“;Top

2 楼Kingron（单身走我路……）回复于 2001-01-02 08:09:00 得分 10

同意，但是那个函数的格式必须符合规定的格式！Top

3 楼bitter（）回复于 2001-01-02 08:44:00 得分 10

----   (1)   定义控件类型    
   
  var    
  Button1:TButton;    
  　    
   
  ----   (2)   生成控件    
   
  Button1:=TButton.   Create(self);    
  Button1.Parent:=Self;    
  //一般将其父控件设置为Self,如果不设置Parent的值，    
  则控件不会在屏幕    
  //显示出来    
  　    
   
  ----   (3)   设置其它属性及定义相关事件响应函数，如Caption,Left,Top,Height,Width,Visible,Enabled,Hint和onClick事件响应函数等。    
  如：  
  button1.onclick:=myclick(...);Top

4 楼chen9681（灰尘）回复于 2001-01-03 01:08:00 得分 0

如果有相当多的同样的按钮的话的呢，不只是一个的啊Top

5 楼bitter（）回复于 2001-01-03 09:04:00 得分 0

有点跑题了，如果你的按钮的名字有一定规律比如  
  "button1","button2"......"button10"  
  ok,  
   
  (findcomponent('button'+inttostr(i))   as   Tbutton).onclick:=myclick(...)Top

6 楼whoo（谁）回复于 2001-01-03 15:27:00 得分 10

another   way   like   bitter:  
   
  for   i   :=   0   to   ComponentCount   -   1   do    
      if   Components[i]   is   TButton   then   (Components[i]   as   TButton).OnClick   =   MyClick;Top

7 楼whoo（谁）回复于 2001-01-03 15:28:00 得分 10

another   way   like   bitter's:  
   
  for   i   :=   0   to   ComponentCount   -   1   do    
      if   Components[i]   is   TButton   then   (Components[i]   as   TButton).OnClick   =   MyClick;Top

相关问题

• 控件
• 函数
• 生成
• tbutton
• myclick
• 事件
• button
• tem
• components
• 设置

• 帖主：chen9681
• kingofwang
• Kingron
• bitter
• whoo
• whoo

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载