`

delphi中的Create,Send,Sender,Self

阅读更多

摘自:http://www.cnblogs.com/keycode/archive/2010/10/16/1853123.html

 

{**********************************************************************************************************************}
建立窗体是经常要用到他们如:
form1:=tform.create(application);
form1:=tform.create(self);
form1:=tform.create(nil);
  
form1:=tform.create(application); 当应用程序关闭时form1会被释放
form1:=tform.create(self); 当前窗体释放时form1会被释放
form1:=tform.create(nil); 需要自己动手释放,没人会为你代劳
  
Form1 := TForm.Create(Arg);
其中的Arg代表的是Form的Owner,也就是拥有者。
什么叫拥有者呢,意思就是说当这个拥有者释放的时候,Form1也会释放。
  
{************************************************************************************************************************}
在事件处理程序参数表中,至少含有一个参数Sender,它代表触发事件处理程序的构件,如在上例中,Sender就指Button2,有了Sender参数,可以使多个构件共用相同的事件处理程序,如下例: 
Procedure Tform1.Buttonclick(Sender:Tobject); 
Begin 
If sender=button1 then 
Label1.caption:=′看庭前花开花落 '
Else Label2.caption:=′望天上云卷云舒′ 
End; 
  
在此例中,Button1,Button2共用了Buttonclick事件处理程序。 
  
Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,self即指窗体,如果在编写一个类或是一个组件,则 self指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件,即self代表‘.’号之前的组件,如在第一个例子中,self代表 Tform1。另外应注意,self只能用在类方法中,而不能用在过程或函数中,如下例用法是错的: 
Function a1(B:Integer):Integer
Begin 
…… 
Button:=tbutton.create(self);…… 
End;   
  
三、Clientheight和Height,Clientwidth和Width的区别: 
  
对于一般的构件而言,Height就是Clientheight,Width就是Clientwidth,而对于窗体而言,Height是包括标题条 在内的高度,而Clientheight是指窗体工作区的高度。同理,Clientwidth是指定窗体工作区的宽度。 
  
从上面陈述可知,理解Ower和Parent,Self和Sender,Clientheight和Height,Clientwidth和Width区别,对于Delphi中正确编程是重要的。 
无意中上网在csdn论坛看到了一个很形象的解释:可以参考一下
  
方法,事件,sender,Tobject,self 
  
你是一个人类(Tobject),你有你自己的性别,年龄,身高等(属性),你也会攀爬蹬走(方法),你也有你的情绪,思想,当别人说你好的时候你很高 兴,说你坏时你会很沮丧(事件),有一天你自己(self)听到别人(sender)说你的女朋友好漂亮传给你的思想(事件),这时你会非常不高兴(事件 处理外界的响应)
  
  
{*************************************************************************************************************************}
  
  在事件处理程序参数表中,至少含有一个参数Sender,它代表触发事件处理程序的构件,如在上例中,Sender就指Button2,有了Sender参数,可以使多个构件共用相同的事件处理程序,如下例:
Procedure Tform1.Buttonclick(Sender:Tobject);
Begin
If sender=button1 then
Label1.caption:=′看庭前花开花落'
Else Label2.caption:=′望天上云卷云舒′
End
在此例中,Button1,Button2共用了Buttonclick事件处理程序。
Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,self即指窗体,如果在编写一个类或是一个组件,则self 指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件,即self代表‘.’号之前的组件,如在第一个例子中,self代表 Tform1。另外应注意,self只能用在类方法中,而不能用在过程或函数中,如下例用法是错的:
Function a1(B:Integer):Integer;
Begin
……
Button:=tbutton.create(self);……
End
Clientheight和Height,Clientwidth和Width的区别:
对于一般的构件而言,Height就是Clientheight,Width就是Clientwidth,而对于窗体而言,Height是包括标题条在内的高度,而Clientheight是指窗体工作区的高度。同理,Clientwidth是指定窗体工作区的宽度。
从上面陈述可知,理解Ower和Parent,Self和Sender,Clientheight和Height,Clientwidth和Width区别,对于Delphi中正确编程是重要的。
Delphi 中Sender对象的定义! 
  
1.Sender的定义: 
每一个事件处理里面至少都有一个Sender参数。比如: 
procedure TForm1.Button1Click(Sender:TObject); 
begin 
... 
end
  
Sender的含义就是代表调用TForm1.Button1Click这个过程的控件. 由于Sender是TObject,所以任何object都可以赋给Sender. 
当你点击BUTTON1时,会产生一个Button1Click事件,系统会把Button1传递给Button1Click过程坐为参数,也就是所说的Sender. 
  
2.Sender的用法: 
  
<1>.由于Sender代表了调用所在过程的控件,那么你就可以直接把它拿来当那个控件用,不过如果要用属性的话,最好写成(Sender as 控件名).控件属性:=... 例如: 
procedure TForm1.Edit1Click(Sender: TObject); 
begin 
with Sender as TEdit do 
begin 
text:=’hello’; 
end
end
  
<2>.如果在两个事件中处理同样的事情,那么可以利用Sender来省去重写同样的过程。例如:
  
var
SearchOptions: TLocateOptions;
searchword:String;
begin
   if sender = Editid
       then
          begin
               searchword:='Empid' ;
                EditCardnum.text :='' ;
          end
else
   if sender= EditCardnum
        then
             Begin
              searchword:='Cardnum';
              Editid.text:='';
           end;
SearchOptions := [loPartialKey];
tabPV_Card.Locate(searchword, TEdit(sender).Text , SearchOptions);//Editid,EditCardnum两个TEdit事件处理同样的事, tabPV_Card為Ttable控件
end;
分享到:
评论

相关推荐

    delphi 中使用TWebBrowser控件

    TWebBrowser控件在Delphi中的应用 TWebBrowser控件是Delphi中的一种常用的控件,用于在应用程序中嵌入网页浏览器。通过TWebBrowser控件,我们可以在Delphi应用程序中显示和控制网页内容。本文将详细介绍TWebBrowser...

    delphi中判断子窗体是否打开

    在Delphi编程环境中,开发MDI(Multiple Document Interface)应用程序时,经常需要判断子窗体是否已经打开。MDI应用程序允许用户同时打开多个子窗口,这些子窗口在同一个父窗口(即MDI容器)内管理。在特定情况下,...

    DELPHI动态创建删除FRAME---示例源码

    DELPHI动态创建删除FRAME unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,FM; type TForm2 = class(TForm) Panel1: ...

    delphi 中鼠标移动事件

    ### Delphi中的鼠标移动事件应用详解 #### 一、引言 在Delphi开发中,鼠标事件是非常重要的交互方式之一,能够极大地提升用户界面的友好性和功能性。本文将重点介绍如何在Delphi中处理鼠标移动事件,并通过一个...

    delphi窗体嵌入word

    在Delphi编程环境中,开发人员有时需要将应用程序的窗体(Form)与Microsoft Word文档集成,以便实现诸如编辑、查看或者交互式操作Word文档的功能。本文将深入探讨如何在Delphi XE2版本中实现窗体嵌入Word的详细步骤...

    delphi动态 WebBrowser 释放问题.txt

    web:=TWebBrowser.Create(Self); web.ParentWindow:=Self.Handle; web.SetBounds(100,100,100,100); web.OnDocumentComplete:=WebBrowser1DocumentComplete; web.Navigate('http://www.3yeah.com/'); end; ...

    delphi中listview启用checkbox实现单选

    在Delphi编程环境中,ListView控件是一个非常常用的组件,它允许开发者展示列表数据,并提供了多种交互方式,如单击、双击以及复选框选择。本文将深入探讨如何在Delphi中启用ListView的复选框并实现单选功能,特别...

    Delphi中静态二维数组的使用

    在Delphi编程环境中,Object Pascal是一种强大的面向对象的编程语言,它支持许多高级特性,如类、接口和泛型等。本教程将深入探讨如何在Delphi中使用静态二维数组来实现九九乘法表的输出,这有助于理解Delphi中的...

    在delphi 11.3 Form窗体的panel 中嵌入 Fmx窗体

    在Delphi 11.3开发环境中,开发者经常会遇到需要在一个传统的VCL(Visual Component Library)窗体上嵌入FireMonkey (FMX)组件的情况。这通常发生在开发跨平台应用程序时,因为FMX提供了对多操作系统的支持。本知识...

    自动调整delphi中dbgrid大小

    在Delphi中,DBGrid(数据绑定网格组件)是一种常用的数据可视化工具,它允许开发者将数据库中的记录展示为表格形式。然而,在实际开发过程中,我们经常遇到一个问题:当单元格内的文本长度不一时,单元格的大小可能...

    Delphi在DBGrid中插入下拉组合框

    在Delphi编程中,DBGrid(数据库网格)是用于显示和编辑数据库数据的强大组件。它允许用户以表格形式查看和操作数据库记录。然而,有时我们可能需要为某些字段提供更复杂的交互,比如一个下拉组合框(ComboBox),...

    delphi 中实现字体宽或长的拉伸

    在Delphi编程环境中,我们经常会遇到需要自定义字体显示效果的情况,比如调整字体的宽度或高度,以适应特定的设计需求。标题"delphi 中实现字体宽或长的拉伸"和描述提到了如何在Delphi中操作字体的尺寸。本文将深入...

    界面渐变带阴影窗体(delphi)

    在Delphi编程环境中,创建一个具有界面渐变和阴影效果的窗体是一项常见的需求,它可以使应用程序看起来更加现代化和专业。下面将详细讲解如何实现这样的效果,并结合“png按钮”这一元素来提升用户界面的美观度。 ...

    在Delphi中动态创建和拖动控件的演示..rar

    MyButton := TButton.Create(Self); MyButton.Parent := Form1; // 将控件添加到指定的父容器 MyButton.Left := 50; MyButton.Top := 50; MyButton.Width := 100; MyButton.Height := 30; MyButton.Caption := '点击...

    Delphi 中TcpServer和TcpClient用法

    ### Delphi 中TcpServer和TcpClient用法详解 #### 一、引言 Delphi 是一种功能强大的开发工具,广泛应用于各种应用软件的开发。它不仅支持多种编程语言,还能利用丰富的类库来快速实现复杂的功能。在Delphi中,...

    Delphi 中制作几何形状的窗体 圆角

    在 Delphi 中创建具有圆角的几何形状窗体是一项常见的需求,这可以使应用程序看起来更加现代和专业。要实现这一效果,我们需要深入理解 Delphi 的图形编程机制,特别是 Windows API 和 GDI(图形设备接口)的功能。...

    在DELPHI中实现用RZPAGECONTROL实现多标签窗口功能(类似IE8以上)

    NewTabSheet := TRzTabSheet.Create(Self); NewTabSheet.Parent := RZPageControl1; NewTabSheet.Caption := '新标签'; end; procedure TForm1.btnDeleteClick(Sender: TObject); begin if RZPageControl1....

    Delphi中添如何添加右键菜单

    在Delphi中添加右键菜单是一项常见的任务,它涉及到Windows API和组件的使用。下面将详细解释这个过程,包括所需的步骤、使用的API函数以及如何在Delphi程序中实现这一功能。 1. **基本概念** 右键菜单,也称为上...

    Delphi中StringGrid动态绑定下拉列表

    Delphi 中 StringGrid 动态绑定下拉列表 Delphi 中的 StringGrid 控件不同于 DbGrid 控件,它不具有内置的 PickList 属性来显示下拉列表。但是,我们可以通过编程的方式来实现 StringGrid 中的下拉列表绑定。下面将...

    浅析C# 中object sender与EventArgs e

    ### 浅析C# 中object sender与EventArgs e #### 一、C# 预定义事件处理机制概览 在深入了解C#中的`object sender`与`EventArgs e`之前,我们首先需要理解.NET框架中与事件相关的类和委托的基础概念。 在C#中,...

Global site tag (gtag.js) - Google Analytics