- 浏览: 2060091 次
- 性别:
- 来自: 厦门
文章分类
- 全部博客 (1409)
- asp/asp.net学习 (241)
- oracle (10)
- delphi (295)
- java (27)
- pb (1)
- 每日点滴 (49)
- 学习方法 (40)
- 思想方面 (104)
- C语言 (5)
- C++ (1)
- 代码重构经验 (5)
- 软件工程 (3)
- 数据库 (99)
- 英语学习 (3)
- mysql (1)
- 该关注的网站或者网页 (42)
- 总结 (7)
- 要去做的事情 (33)
- 算法 (1)
- 网络方面 (29)
- 随感 (96)
- 操作系统 (36)
- UML (12)
- 常用工具的使用 (55)
- 脚本 (7)
- 汇编 (62)
- 数据结构 (2)
- 财务 (38)
- 语文作文 (16)
- 法律 (1)
- 股票 (88)
最新评论
-
devwang_com:
可以,学习了~~
列出文件夹下所有文件夹的树形结构--Dos命令 tree的使用 -
hvang1988:
不管用啊 frxrprt1.PreviewForm.Pare ...
fastReport预览时嵌入到别的窗体 -
00915132:
我也有这个疑问,非常 感 谢
left join加上where条件的困惑 --SQL优化 -
zhuyoulong:
学习了,高效读书
软件架构师要读的书 -
nTalgar:
非常感谢分享!
Application.ProcessMessages用法:
摘自: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 ;
|
发表评论
-
form打开时的关闭代码
2011-10-25 20:29 1577摘自:http://topic.csdn.n ... -
TUpdateSQL更新问题 提示Update Failed
2011-08-29 20:26 1240摘自:http://topic.csdn.net/u/200 ... -
图解如何用Eurekalog跟踪程序错误
2011-08-12 07:28 943图解如何用Eurekalog跟踪程序错误 摘自:h ... -
VirtualBox 复制VDI 并能创建新的虚拟机
2011-07-21 11:14 2741摘自:http://www.nonabyte.net/how- ... -
截获所有异常 不报错
2011-07-12 16:52 1242摘自:http://media.ccidnet.c ... -
delphi exe程序以及DLL程序如何在模块内部获得各自的路径
2011-07-11 16:38 1307delphi Exe程序以及DLL程序如何在模块内部获得各自的 ... -
Delphi文本文件读写
2011-07-11 14:55 1252Delphi文本文件读写 (2008-10-31 1 ... -
Delphi自定义的消息的使用
2011-05-31 14:12 2317阅:已验证,可通过; 摘自:http://blog.1 ... -
怎么查看OutputDebugString输出的信息?debugview
2011-05-25 16:02 3835网上很多说用debugview查看,我自己写了一个程序,里面用 ... -
Delphi里查看该变量的内存值
2011-05-25 13:32 1126Delphi里查看该变量的内存值:Run==>Evalu ... -
注册表操作 写入autorun启动项,键值为本程序的全路径
2011-05-20 15:40 1826procedure TForm4.Button2Click ... -
报说包frx7和frxdb7都包含了某个单元的错误
2011-05-11 09:59 10271. 问题描述:在安装FastReport3的时候,安装到- ... -
Delphi中使用ListView和TreeView的Item中的Data可能被忽略的内存泄漏
2011-05-03 14:34 1465摘自:http://blog.csdn.net/g ... -
WM_USER的说明 用户消息ID
2011-04-28 10:46 1689WM_USER 摘自:http://baike.bai ... -
ToolButton不能改变大小
2011-04-28 10:38 3464问题描述:ToolButton不能改变大小? 问 ... -
Delphi里TOOLBAR 上的button的caption为什么显示不出来啊
2011-04-20 17:55 1769Delphi里TOOLBAR 上的button的caption ... -
delphi指针简单入门
2011-04-11 21:42 1159摘自:http://topic.csdn.net/t/2003 ... -
Delphi中paramstr的用法 应用程序间传递数据
2011-04-01 14:33 2105Delphi中paramstr的用法 应用程序间传递数据 ... -
Delphi中的THashedStringList对象 --大数据量时
2011-04-01 13:54 5150Delphi中的THashedStringLi ... -
inherited Create(AOwner); 和直接写inherited有区别吗
2011-03-26 15:44 1325摘自:http://zhidao.baidu.com/que ...
相关推荐
TWebBrowser控件在Delphi中的应用 TWebBrowser控件是Delphi中的一种常用的控件,用于在应用程序中嵌入网页浏览器。通过TWebBrowser控件,我们可以在Delphi应用程序中显示和控制网页内容。本文将详细介绍TWebBrowser...
在Delphi编程环境中,开发MDI(Multiple Document Interface)应用程序时,经常需要判断子窗体是否已经打开。MDI应用程序允许用户同时打开多个子窗口,这些子窗口在同一个父窗口(即MDI容器)内管理。在特定情况下,...
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编程环境中,开发人员有时需要将应用程序的窗体(Form)与Microsoft Word文档集成,以便实现诸如编辑、查看或者交互式操作Word文档的功能。本文将深入探讨如何在Delphi XE2版本中实现窗体嵌入Word的详细步骤...
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控件是一个非常常用的组件,它允许开发者展示列表数据,并提供了多种交互方式,如单击、双击以及复选框选择。本文将深入探讨如何在Delphi中启用ListView的复选框并实现单选功能,特别...
在Delphi编程环境中,Object Pascal是一种强大的面向对象的编程语言,它支持许多高级特性,如类、接口和泛型等。本教程将深入探讨如何在Delphi中使用静态二维数组来实现九九乘法表的输出,这有助于理解Delphi中的...
在Delphi 11.3开发环境中,开发者经常会遇到需要在一个传统的VCL(Visual Component Library)窗体上嵌入FireMonkey (FMX)组件的情况。这通常发生在开发跨平台应用程序时,因为FMX提供了对多操作系统的支持。本知识...
在Delphi中,DBGrid(数据绑定网格组件)是一种常用的数据可视化工具,它允许开发者将数据库中的记录展示为表格形式。然而,在实际开发过程中,我们经常遇到一个问题:当单元格内的文本长度不一时,单元格的大小可能...
在Delphi编程中,DBGrid(数据库网格)是用于显示和编辑数据库数据的强大组件。它允许用户以表格形式查看和操作数据库记录。然而,有时我们可能需要为某些字段提供更复杂的交互,比如一个下拉组合框(ComboBox),...
在Delphi编程环境中,我们经常会遇到需要自定义字体显示效果的情况,比如调整字体的宽度或高度,以适应特定的设计需求。标题"delphi 中实现字体宽或长的拉伸"和描述提到了如何在Delphi中操作字体的尺寸。本文将深入...
在Delphi编程环境中,创建一个具有界面渐变和阴影效果的窗体是一项常见的需求,它可以使应用程序看起来更加现代化和专业。下面将详细讲解如何实现这样的效果,并结合“png按钮”这一元素来提升用户界面的美观度。 ...
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 是一种功能强大的开发工具,广泛应用于各种应用软件的开发。它不仅支持多种编程语言,还能利用丰富的类库来快速实现复杂的功能。在Delphi中,...
在 Delphi 中创建具有圆角的几何形状窗体是一项常见的需求,这可以使应用程序看起来更加现代和专业。要实现这一效果,我们需要深入理解 Delphi 的图形编程机制,特别是 Windows API 和 GDI(图形设备接口)的功能。...
NewTabSheet := TRzTabSheet.Create(Self); NewTabSheet.Parent := RZPageControl1; NewTabSheet.Caption := '新标签'; end; procedure TForm1.btnDeleteClick(Sender: TObject); begin if RZPageControl1....
在Delphi中添加右键菜单是一项常见的任务,它涉及到Windows API和组件的使用。下面将详细解释这个过程,包括所需的步骤、使用的API函数以及如何在Delphi程序中实现这一功能。 1. **基本概念** 右键菜单,也称为上...
Delphi 中 StringGrid 动态绑定下拉列表 Delphi 中的 StringGrid 控件不同于 DbGrid 控件,它不具有内置的 PickList 属性来显示下拉列表。但是,我们可以通过编程的方式来实现 StringGrid 中的下拉列表绑定。下面将...
### 浅析C# 中object sender与EventArgs e #### 一、C# 预定义事件处理机制概览 在深入了解C#中的`object sender`与`EventArgs e`之前,我们首先需要理解.NET框架中与事件相关的类和委托的基础概念。 在C#中,...