一个想了好久的问题(按钮事件),希望高手指点

Question

最近分析一段代码,在程序界面上有个TSpeedButton按钮,点击它会执行一段代码,但是我双击这个按钮进入程序代码中时,发现这个点击事件里面没有执行代码!!这个让我百思不得其解,这里没有代码那么点击它所执行的事件的代码放在哪边了??
   后来又仔细的看了一下代码,好像是它把这个按钮当作对象放入一个TList中保存起来(在这个TList中还保存有其他的TSpeedButton对象),
  我想问一下这个根据什么原理实现的,还有到点击一个按钮时系统做了哪些事情,这个事件传递了什么参数?传递给了谁?
   还请高手指教!!感激!!

Answer 1

TList保存的是指针，就这样！
至于事件，可能是动态指定了吧，

Answer 2

动态指定的吧，看看程序中是否有 SpeedButton1.onClick := ... 这样的语句

Answer 3

多谢大家的建议,我又看了一下代码,确实是把speedbuttton放在tlist中的,事件是动态指定的.
 
  还有一点,小弟不明白,在delphi中sender是一个TObject类型的对象,经常在某些组件事件的代码中看到有sender参数,这个参数是谁传过来的?参数具体代表什么?
  希望能解释一下

Answer 4

每个过程段的开头都类似procedure TForm1FormClick(Sender:TObject)；其中的Sender是一个TObject类型的参数，它告诉Delphi哪个控件接收这个事件并调用相应的处理过程。你可以编写一个单一的事件处理句柄，通过Sender参数和IF…THEN…语句或者CASE语句配合，来处理多个构件。发生事件的构件或控件的值已经赋给了Sender参数，该参数的用途之一就在于：可以使用保留字IS来测试Sender，以便找到调用这个事件处理句柄的构件或控件的类型。例如，将表单中编辑框和标签的Click事件的处理句柄都指向表单的xxx过程，编辑框和标签对Click事件有不同的反应： 
　　procedure TForm1xxx(Sender:TObject); 
　　begin 
　　if(sender if Tedit) then 
　　showmessage(′this is a editbox′); 
　　if(sender is Tlabel) then 
　　showmessage(′this is a label′); 
　　end; 
　　Sender参数的第二个用途是结合AS操作符进行类型转换，将若干个派生于某一父类的子类强制转换成该父类。例如表单中有一个TEdit类控件和一个TMemo控件，它们实际上都派生于TcustomEdit类，如果你要为二者的某一事件提供同样处理，可以将二者事件句柄都指向自定义的过程yyy: 
　　Procedure TForm1.yyy(Sender:TObject); 
　　begin 
　　(sender as TcustomEdit).text:=′This is some demo text′; 
　　end; 
　　在过程中，AS操作符将TEdit类和TMemo类均强制转换成TcustomEdit类，再对TcustomEdit类的属性赋值。注意这种转换必须符合Delphi中类的层次关系。 
　　使用Sender参数可以通过单一过程段处理多类控件，真正体现了Delphi面向对象的重用性