delphi中难点.doc

Self 一，什么是self:简单的可以理解为代表所编的程序范围内的一个类或组件。最根本的解释是self是一个指针变量，代表当前正在执行函数的那个对象的数据块的首地址Procedure Tform1.Buttonclick(Sender:Tobject); ）可看出self是代表哪个组件(即Tform1)，即self代表‘.’号之前的组件。二，什么地方用self:只能用在类方法中（即含有create的程序段中），而不能用在过程或函数中，类方法是指给具体可执行的公式进行运算的一段程序,是正在按操作者的要求正在进行某项数值运算或操作的那段程序，是必需要内存中进行动态变化的一个过程，是活的。而过程和函数则是只定义了一些公式的一段程序，是存储在硬盘中的一些公式，是死的。 在delphi中要实现一个类方法，要经过下面五个步骤： 1。定义一个类procedure?Add(n:?integer)?end; 2。用该类声明一个名字（实质是一个指针）3。用该类实例化一个对象，并使它与先前的名字联系起来a?:=?TCou.create; 为什么不是.Create呢？那是因为，在执行这条代码前，还没有为分配内存空间，是不能访问他内部的数据成员的。 4。调用对象的方法或属性a.add(5); 5。释放对象?a.free;?form1:=tform.create(application); 当应用程序关闭时form1会被释放 form1:=tform.create(self); 当前窗体释放时form1会被释放 form1:=tform.create(nil); 需要自己动手释放， Sender 什么是sender：简单的理解是Sender是用来表示程序中的控件名。深入的理解是正在运行的程序中哪个控件接收这个事件并调用相应的处理过程2.Sender的用法：?使用Sender参数可以通过单一过程段处理多类控件1.由于Sender代表了调用所在过程的控件，那么你就可以直接把它拿来当那个控件用，不过如果要用属性的话，最好写成(Sender as 控件名).控件属性：=... 例如:?procedure TForm1.Edit1Click(Sender: TObject);?begin?with Sender as TEdit do?”hello”begin?text:=’hello’;?end;?end;?2.如果在两个事件中处理同样的事情，那么可以利用Sender来省去重写同样的过程。例如：?Procedure TForm1.Button1Click(Sender:TObject);?begin?do same sth.....;?if Sender=Button1 then?do sth....;?if Sender=Button2 then?do other sth....;?end;?procedure TForm1.Button2Click(Sender:TOBJect);?begin?Button1Click(Button2);?end;? 你可以编写一个单一的事件处理句柄，通过Sender参数和IF…THEN…语句或者CASE语句配合，来处理多个构件。发生事件的构件或控件的值已经赋给了Sender参数，该参数的用途之一就在于：可以使用保留字IS来测试Sender，以便找到调用这个事件处理句柄的构件或控件的类型。例如，将表单中编辑框和标签的Click事件的处理句柄都指向表单的xxx过程，编辑框和标签对Click事件有不同的反应：?　　procedure TForm1 xxx(Sender:TObject);?　　begin?　　if(sender is 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类均强制转换成TcustomE