怎么触发动态创建的按钮的单击和双击事件？

 
      var  
          btn_a:tbitbtn;  
  begin  
          btn_a:=tbitbtn.create(self);      
          btn_a.Parent   :=   self;                           //////  
          btn_a.top:=500;  
          btn_a.left:=500;  
          btn_a.width:=500;  
          btn_a.height:=500;  
          btn_a.caption:='ok';    
  end  
   
  按钮创建之后怎么触发动态创建的按钮的单击和双击事件？  
  谢谢！！  
     
     
  问题点数：20、回复次数：2Top

1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-03-28 11:38:23 得分 20

//先试试  
  btn_a.OnClick   :=   Button1Click;  
  bin_a.OnDblClick   :=   Button1DblClick;  
  //再把名称换了Top

2 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-03-28 11:41:39 得分 0

//..........  
  type  
      TForm1   =   class(TForm)  
  //..........  
          ButtonDblClick(Sender:   TObject);  
  //..........  
      end;  
  //..........  
   
  procedure   TForm1.ButtonDblClick(Sender:   TObject);  
  begin  
      ShowMessage('只要是参数为一个TObject类型的方法即可');  
  end;  
  //..........  
  Top

3 楼zuoyangguang（瓜瓜）回复于 2002-03-28 14:21:42 得分 0

单击事件可以，但是双击就不行了，谢谢你。Top

相关问题

• btn
• 按钮
• tform
• tobject

• 帖主：zuoyangguang
• zswang

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