怎样用D编写控件? 怎样用D编写控件?也许题目太大,给点资料,推荐一下书本都行:) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个例子控件叫TLeiLabel,是在TLabel的基础上增加两个实用的功能:一是使文字具有立体形状,二是使文字具有超链接属性。下面就让我们一步步来实现这些功能。 一、使文字具有立体形状 首先定义类型T3DEffect和属性Style3D分别如下: T3DEffect=(Normal,Raised,Lowered, Shadowed); property Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal; 再在private中定义变量:“FStyle3D:T3DEffect;”,并设置SetStyle3D()方法如下,这也是写方法的一般格式: procedure TLeiLabel.SetStyle3D(Value: T3DEffect); begin if FStyle3D <> value then begin FStyle3D := value; invalidate; //表示控件将重画 end; end; 另外对于带阴影的文字还要定义阴影的偏移量ShadeXOffSet和ShadeYOffSet: property ShadowXOffSet: integer read FXOffSet write SetFXOffSet default 5; property ShadowYOffSet: integer read FYOffSet write SetFYOffSet default -5; 写方法SetFXOffSet()、SetFYOffSet()和上面的SetStyle3D()类似。 要重画控件一般要重载Paint方法,此处只是重画文字,我们只需重载DoDrawText方法。 DoDrawText的声明放在Protected中: procedure DoDrawText(var Rect: TRect; Flags: Longint); override; 此处DoDrawText()根据四种类型(正常、凸起、凹进和阴影)分别画出不同的文字。 二、使文字具有超链接属性 定义一个属性URL表示要链接的网址或Email地址。 Property URL : String read FURL write SetURL; 写方法SetURL如下: procedure TLeiLabel.SetURL(Value: String); Begin if FURL <> Value then FURL := Value ; if FURL <> '' then Cursor := crHandPoint; end; 当点击此Label时要打开浏览器或收发邮件工具,这便要重载Click方法。 Procedure Click; Override; procedure TLeiLabel.Click; var s: string; Begin Inherited Click; if FURL = '' then exit; if LowerCase(Copy(FURL,1,7)) = 'http://' then s := FURL else if Pos('@',FURL) <> 0 Then s := 'mailto:' + FURL else s := 'http://' + FURL; ShellExecute(Application.Handle, 'open', PChar(s), NIL, NIL, SW_SHOWNORMAL); end; 一般的超链接当鼠标移入时文字的颜色发生变化。为此加上属性HoverColor,表示鼠标移入时文字的颜色。 Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed; 还要定义两个接收Windows消息CM_MOUSEENTER和CM_MOUSELEAVE(鼠标移进和移出)的过程: Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; Procedure TLeiLabel.CMMouseEnter (Var Message: TMessage); begin If Enabled and Visible and getParentForm(Self).Active then begin FFontColor := Font.Color; //将文字的颜色保存起来 Font.Color := FHoverColor; //改变文字颜色 End; end; Procedure TLeiLabel.CMMouseLeave (Var Message: TMessage); begin Font.Color:=FFontColor; //恢复文字原来的颜色 end; 为设置属性的默认值,我们还需要重载构造Create(),注意,重载构造时必须首先调用祖先类的构造。重载构造Create()的程序如下: constructor TLeiLabel.Create(AOwner: TComponent); begin inherited Create(AOwner); //必须首先调用祖先类的构造 FStyle3D := Normal; FXOffSet := 5; FYOffSet := -5; FHoverColor := clRed; end; 最后,还必须为这个控件加上图标。我们可以用Delphi中的Image Editor来创建一个24×24的Bitmap位图,保存为一个DCR文件,文件名必须与控件的Pas文件名相同,位图名必须与控件名相同且全部大写。 这样,一个完整的实用的控件就做好了 参考一下 delphi 5 开发人员指南 DELPHI构件制作方法 ===============================================基本概念制作构件的基本过程可以概括为:1.编写构件单元( unit)。其中包含构件声明和构件实现代码。2.按照与普通 Delphi单元同样的方法编译和调试构件单元。3.创建构件注册单元。其中用 uses语句连接构件单元,并用 Register过程完成构件的注册。4.编写构件联机帮助信息,并编译成标准 Windows帮助文件。全部工作完成后,生成构件单元二进制文件(. DCU)、构件注册源文件(. PAS)和帮助信息文件(. HLP)及附加的关键词文件(. KWF)。用户拿到这些文件后,就可以安装使用了。在 Delphi 环境下调用菜单命令,启动安装过程(安装过程中需指定注册文件名),可以把构件注册到 Delphi的 VCL库中,并在构件工具条上生成一个新按钮。借助 HelpInst安装工具可以把关键词文件并入 Dephi帮助索引系统,用 F1键实现联机帮助。这样制作出的. DCU文件与一般 Delphi单元没有根本区别,即使不安装到 VCL库中也可以由其他单元直接调用。最大的区别在于:构件单元中某些属性和事件声明为 published,从而在程序设计期对用户是可见的,用户可以通过对象编辑窗口( ObjectInspector)访问这些属性和事件。这是可视化程序设计的关键所在。对象的继承与修改制作构件第一件事就是选择适当的 Delphi对象类型作为父对象,以派生新的对象。子对象可以继承父对象的全部非 private部件,但不能摆脱不需要的部件。因此,所选父对象应尽可能多地包含子对象所需的属性、事件和方法,但不应包含子对象不需要的东西。TComponent是所有 Delphi构件的基点,但若直接从 TComponent 派生新构件,很多东西就需要自己从头做起。一般只有非可视构件才直接从 TComponent派生。 Delphi提供了若干专门用于制作控件(可视构件)的对象类型,都是从 TControl和 TWinControl派生而来。其派生关系如下:TControl--- TGraphicControl--- TCustomLabelTWinControl-- TCustomControl--- TCustomGrid--- TButtonControl-- TCustomGroupBox--- TScrollingWinControl-- TCustomPanel--- TCustomComboBox--- TCustomEdit--- TCustomListBoxTControl的子类型用于非窗口式控件, TWinControl的子类型则用于窗口式控件。除非特殊需要,一般不直接从 TControl和TWinControl派生新控件,而是从其子类型派生。这样可以充分利用原有的属性、事件和方法,减少很多工作量。在这些构件类型中,非通用的属性、事件和方法都声明为 protected。这样可以禁止构件用户访问,又能被子类型继承和修改。在新构件中,可以简单地把继承来的属性和事件重新声明为 published,使构件用户能在设计期通过对象编辑窗口访问,也可以进而修改属性的默认值和读写方式,或是重载( override)事件处理子过程和其他构件方法,以修改其中的程序代码。重声明可以放宽访问权限,但不能 相反,例如,不可能把 published属性重声明为 private或 pro tected。为了增加新功能,常常需要定义全新的属性、事件和方法。定义时,一般总是把对用户开放的属性和事件声明为 published,把方法声明为 public或 protected。构件属性在构件中,属性和方法往往可以相互替代。对构件用户来说,属性比方法更直观简便。因此,只要可能,应尽量以属性取代方法。 属性类型包括简单类型( numeric, character, string)、枚举类型、集合类型、对象类型(例如 font)和数组类型(例如 TStrings 类型中的 Strings)。其定义方法如下:typeprivateFLayers: Integer;{内部存储用的变量}functionGetLayers: Integer;{用来读属性值的方法}procedureSetLayers( ALayers: Integer);{用来写属性值的方法}publishedpropertyLayers:IntegerreadGetLayerswriteSetLayersdefault1;end;每个属性都需要相应的 private变量用于内部存储。按照约定,变量名以 F打头,后跟属性名(此处为 Layers),读写方法名称分别为 Get加属性名和 Set加属性名。写方法总是带一个与属性类型相同的参数,用以传送属性值。此参数可以传值,也可以传递变量。如果不定义写方法(省略 write部分),此属性便成为只读属性。读写方法应该在 pri vate部分声明,以使其对构件用户和构件的派生对象保持隐蔽。读写方法除了取值和赋值之外,还可以附加其他操作代码,使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应,可以不定义读写方法,采用直接访问格式来声明属性:propertyLayers:IntegerreadFLayerswriteFLayersdefault1;default命令符用来指定属性的默认值,同时需要在构件的构造函数中为属性设置初值。 default命令的作用是在窗体文件存盘时提供参照:若属性当前值与 default命令指定的值不同,则把当前值保存在文件中,否则便无需保存。如果省略 default命令,属性当前值总是保存在窗体文件中。事件与事件处理过程创建构件时,事件也被当做属性来处理,区别仅在于事件必须定义为过程类型,使其成为一个隐蔽指针,指向某个潜在的过程。当构件用户为事件指定处理子程序后,事件便成为指向该子程序的指针。事件的定义方式如下:typeprivateFOnClick: TNotifyEvent;{声明事件变量以保存过程指针}publishedpropertyOnClick:TNotifyEventreadFOnClickwriteFOnClick;end;此例正是 Delphi标准控件中 Click事件的定义方式。可以看出,除了 OnClick被定义为过程类型外,其定义格式与一般属性的直接访问格式几乎完全相同。 Delphi预定义了所有标准事件的过程类型及标准事件所引发的虚方法。其中, Click事件将引发如下虚方法:procedureTControl. Click;beginifAssigned( OnClick) thenOnClick( Self);{以下是默认处理部分}end;其中, Assigned函数检验 OnClick是否已分配了事件处理过程。如果返回值为 True,则调用用户指定的事件处理过程。通过重载此虚方法,可以修改 Click事件的处理方式。在重载的方法中,一般应先调用用户处理程序,然后再安排后续处理。在本例中,首行代码应当是 inheritedClick。需要注意的是,构件用户不一定会给事件指定处理程序,因此事件不能定义为函数类型,否则可能会指向返回值类型不定的空函数。如果需要事件处理过程返回某个值,可以借助 var参数。调用用户程序之前应确保此参数包含有效返回值,以免用户未指定事件处理过程时出错。如果 Delphi标准事件不能满足需要,也可以自己定义事件。其核心思想是选择适当的 Windows消息来引发构件中的事件过程。 delphi 已知3点坐标,需要画一个圆,并计算它的半径! 如何获取U盘注册列表号(Delphi源码) 如何把一个整数转换为char类型? 有什么办法可以在IE浏览器中显示类似于windows的资源浏览器的结构. combobox的问题 一个奇怪的问题,delphi 2007编译后源码定位不对 为什么TcpClient.Connect一执行就程序死掉? 怎样实现树状结构? 在月底终于脱掉了裤衩!散分!~ ########微软面试题目(机试):**(考考你的shiji 程能力)!!!! pb,vb,delphi的详解 关于俄文界面的问题
首先定义类型T3DEffect和属性Style3D分别如下: T3DEffect=(Normal,Raised,Lowered, Shadowed); property Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal; 再在private中定义变量:“FStyle3D:T3DEffect;”,并设置SetStyle3D()方法如下,这也是写方法的一般格式: procedure TLeiLabel.SetStyle3D(Value: T3DEffect); begin if FStyle3D <> value then begin FStyle3D := value; invalidate; //表示控件将重画 end; end; 另外对于带阴影的文字还要定义阴影的偏移量ShadeXOffSet和ShadeYOffSet: property ShadowXOffSet: integer read FXOffSet write SetFXOffSet default 5; property ShadowYOffSet: integer read FYOffSet write SetFYOffSet default -5; 写方法SetFXOffSet()、SetFYOffSet()和上面的SetStyle3D()类似。 要重画控件一般要重载Paint方法,此处只是重画文字,我们只需重载DoDrawText方法。 DoDrawText的声明放在Protected中: procedure DoDrawText(var Rect: TRect; Flags: Longint); override; 此处DoDrawText()根据四种类型(正常、凸起、凹进和阴影)分别画出不同的文字。 二、使文字具有超链接属性
定义一个属性URL表示要链接的网址或Email地址。 Property URL : String read FURL write SetURL; 写方法SetURL如下: procedure TLeiLabel.SetURL(Value: String); Begin if FURL <> Value then FURL := Value ; if FURL <> '' then Cursor := crHandPoint; end; 当点击此Label时要打开浏览器或收发邮件工具,这便要重载Click方法。 Procedure Click; Override; procedure TLeiLabel.Click; var s: string; Begin Inherited Click; if FURL = '' then exit; if LowerCase(Copy(FURL,1,7)) = 'http://' then s := FURL else if Pos('@',FURL) <> 0 Then s := 'mailto:' + FURL else s := 'http://' + FURL; ShellExecute(Application.Handle, 'open', PChar(s), NIL, NIL, SW_SHOWNORMAL); end; 一般的超链接当鼠标移入时文字的颜色发生变化。为此加上属性HoverColor,表示鼠标移入时文字的颜色。 Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed; 还要定义两个接收Windows消息CM_MOUSEENTER和CM_MOUSELEAVE(鼠标移进和移出)的过程: Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; Procedure TLeiLabel.CMMouseEnter (Var Message: TMessage); begin If Enabled and Visible and getParentForm(Self).Active then begin FFontColor := Font.Color; //将文字的颜色保存起来 Font.Color := FHoverColor; //改变文字颜色 End; end; Procedure TLeiLabel.CMMouseLeave (Var Message: TMessage); begin Font.Color:=FFontColor; //恢复文字原来的颜色 end; 为设置属性的默认值,我们还需要重载构造Create(),注意,重载构造时必须首先调用祖先类的构造。重载构造Create()的程序如下: constructor TLeiLabel.Create(AOwner: TComponent); begin inherited Create(AOwner); //必须首先调用祖先类的构造 FStyle3D := Normal; FXOffSet := 5; FYOffSet := -5; FHoverColor := clRed; end; 最后,还必须为这个控件加上图标。我们可以用Delphi中的Image Editor来创建一个24×24的Bitmap位图,保存为一个DCR文件,文件名必须与控件的Pas文件名相同,位图名必须与控件名相同且全部大写。 这样,一个完整的实用的控件就做好了
===============================================
基本概念制作构件的基本过程可以概括为:1.编写构件单元( unit)。其中包含构件声明和构件实现代码。2.按照与普通 Delphi单元同样的方法编译和调试构件单元。3.创建构件注册单元。其中用 uses语句连接构件单元,并用 Register过程完成构件的注册。4.编写构件联机帮助信息,并编译成标准 Windows帮助文件。全部工作完成后,生成构件单元二进制文件(. DCU)、构件注册源文件(. PAS)和帮助信息文件(. HLP)及附加的关键词文件(. KWF)。用户拿到这些文件后,就可以安装使用了。在 Delphi 环境下调用菜单命令,启动安装过程(安装过程中需指定注册文件名),可以把构件注册到 Delphi的 VCL库中,并在构件工具条上生成一个新按钮。借助 HelpInst安装工具可以把关键词文件并入 Dephi帮助索引系统,用 F1键实现联机帮助。这样制作出的. DCU文件与一般 Delphi单元没有根本区别,即使不安装到 VCL库中也可以由其他单元直接调用。最大的区别在于:构件单元中某些属性和事件声明为 published,从而在程序设计期对用户是可见的,用户可以通过对象编辑窗口( ObjectInspector)访问这些属性和事件。这是可视化程序设计的关键所在。对象的继承与修改制作构件第一件事就是选择适当的 Delphi对象类型作为父对象,以派生新的对象。子对象可以继承父对象的全部非 private部件,但不能摆脱不需要的部件。因此,所选父对象应尽可能多地包含子对象所需的属性、事件和方法,但不应包含子对象不需要的东西。TComponent是所有 Delphi构件的基点,但若直接从 TComponent 派生新构件,很多东西就需要自己从头做起。一般只有非可视构件才直接从 TComponent派生。 Delphi提供了若干专门用于制作控件(可视构件)的对象类型,都是从 TControl和 TWinControl派生而来。其派生关系如下:TControl--- TGraphicControl--- TCustomLabelTWinControl-- TCustomControl--- TCustomGrid--- TButtonControl-- TCustomGroupBox--- TScrollingWinControl-- TCustomPanel--- TCustomComboBox--- TCustomEdit--- TCustomListBoxTControl的子类型用于非窗口式控件, TWinControl的子类型则用于窗口式控件。除非特殊需要,一般不直接从 TControl和TWinControl派生新控件,而是从其子类型派生。这样可以充分利用原有的属性、事件和方法,减少很多工作量。在这些构件类型中,非通用的属性、事件和方法都声明为 protected。这样可以禁止构件用户访问,又能被子类型继承和修改。在新构件中,可以简单地把继承来的属性和事件重新声明为 published,使构件用户能在设计期通过对象编辑窗口访问,也可以进而修改属性的默认值和读写方式,或是重载( override)事件处理子过程和其他构件方法,以修改其中的程序代码。重声明可以放宽访问权限,但不能 相反,例如,不可能把 published属性重声明为 private或 pro tected。为了增加新功能,常常需要定义全新的属性、事件和方法。定义时,一般总是把对用户开放的属性和事件声明为 published,把方法声明为 public或 protected。构件属性在构件中,属性和方法往往可以相互替代。对构件用户来说,属性比方法更直观简便。因此,只要可能,应尽量以属性取代方法。 属性类型包括简单类型( numeric, character, string)、枚举类型、集合类型、对象类型(例如 font)和数组类型(例如 TStrings 类型中的 Strings)。其定义方法如下:typeprivateFLayers: Integer;{内部存储用的变量}functionGetLayers: Integer;{用来读属性值的方法}procedureSetLayers( ALayers: Integer);{用来写属性值的方法}publishedpropertyLayers:IntegerreadGetLayerswriteSetLayersdefault1;end;每个属性都需要相应的 private变量用于内部存储。按照约定,变量名以 F打头,后跟属性名(此处为 Layers),读写方法名称分别为 Get加属性名和 Set加属性名。写方法总是带一个与属性类型相同的参数,用以传送属性值。此参数可以传值,也可以传递变量。如果不定义写方法(省略 write部分),此属性便成为只读属性。读写方法应该在 pri vate部分声明,以使其对构件用户和构件的派生对象保持隐蔽。读写方法除了取值和赋值之外,还可以附加其他操作代码,使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应,可以不定义读写方法,采用直接访问格式来声明属性:propertyLayers:IntegerreadFLayerswriteFLayersdefault1;default命令符用来指定属性的默认值,同时需要在构件的构造函数中为属性设置初值。 default命令的作用是在窗体文件存盘时提供参照:若属性当前值与 default命令指定的值不同,则把当前值保存在文件中,否则便无需保存。如果省略 default命令,属性当前值总是保存在窗体文件中。事件与事件处理过程创建构件时,事件也被当做属性来处理,区别仅在于事件必须定义为过程类型,使其成为一个隐蔽指针,指向某个潜在的过程。当构件用户为事件指定处理子程序后,事件便成为指向该子程序的指针。事件的定义方式如下:typeprivateFOnClick: TNotifyEvent;{声明事件变量以保存过程指针}publishedpropertyOnClick:TNotifyEventreadFOnClickwriteFOnClick;end;此例正是 Delphi标准控件中 Click事件的定义方式。可以看出,除了 OnClick被定义为过程类型外,其定义格式与一般属性的直接访问格式几乎完全相同。 Delphi预定义了所有标准事件的过程类型及标准事件所引发的虚方法。其中, Click事件将引发如下虚方法:procedureTControl. Click;beginifAssigned( OnClick) thenOnClick( Self);{以下是默认处理部分}end;其中, Assigned函数检验 OnClick是否已分配了事件处理过程。如果返回值为 True,则调用用户指定的事件处理过程。通过重载此虚方法,可以修改 Click事件的处理方式。在重载的方法中,一般应先调用用户处理程序,然后再安排后续处理。在本例中,首行代码应当是 inheritedClick。需要注意的是,构件用户不一定会给事件指定处理程序,因此事件不能定义为函数类型,否则可能会指向返回值类型不定的空函数。如果需要事件处理过程返回某个值,可以借助 var参数。调用用户程序之前应确保此参数包含有效返回值,以免用户未指定事件处理过程时出错。如果 Delphi标准事件不能满足需要,也可以自己定义事件。其核心思想是选择适当的 Windows消息来引发构件中的事件过程。