知识大全 Delphi自定义部件开发(二)[3]

Posted 事件

篇首语:学习是劳动,是充满思想的劳动。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 Delphi自定义部件开发(二)[3]相关的知识,希望对你有一定的参考价值。

DELPHI基础教程:Delphi自定义部件开发(二)[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

  Color属性是灵活的 它允许在Object Inspector窗口中以多种方式选择他们 或者键入 或者从列表中选择定编辑器 因此TColorProperty的GetAttributes方法在返回值中包含多种属性

  function TColorProperty GetAttributes: TProrertyAttributes;

  begin

  Result := [PaMultiselect paDialog paValuelist];

  end;

  ⑸ 注册属性编辑器

  一旦创建属性编辑器 必须在Delphi中注册 注册属性编辑器时 要与某种属性相联

  调用RegisterPropertyEditor过程来注册属性编辑器 该过程接受四个参数

  ● 要编辑的属性的类型信息的指针 这总是通过调用调用TypeInfo函数得到 如TypeInfo ( TMyComponent )

  ● 编辑器应用的部件类型 如果该参数为nil则编辑器应用于所给的类型的所有属性

  ● 属性名 该参数只有在前一参数描述了部件的情况下才可用

  ● 使用该属性编辑器的属性的类型

  下面引用了注册标准部件的过程

  procedure Register;

  begin

  RegisterPropertyEditor (TypeInfo(TComponent) nil TComponentProperty

  RegisterPropertyEditor(TypeInfo(TComponentName) TComponent

   Name (ComponentNamePropety)

  RegisterPropertyEditor (TypeInfo(TMenuItem) TMenu TMenuItemProperty)

  end;

  这三句表达式使用RegisterPropertyEditor三种不同的用法

  ● 第一种最典型

  它注册了用于所有TComponent类型属性的属性编辑器TComponentProperty 通常 当为某种类型属性注册属性编辑器时 它就能应用于所有这种类型的属性 因此 第二和第三个参数为nil

  ● 第二个表达式注册特定类型的属性编辑器

  它为特定部件的特定属性注册属性编辑器 在这种情况下 编辑器用于所有部件的Name属性

  ● 第三个表达式介于第一个和第二个表达式之间

  它为部件TMenu的TMenuItem类型的所有属性注册了属性编辑器

   创建事件

  事件是部件的很重要的部分 事件是部件必须响应的系统事件与响应事件的一段代码的联接 响应代码被称为事件处理过程 它总是由部件用户来编写 通过使用事件 应用开发者不需要改变部件本身就能定制部件的行为 作为部件编写者 运用事件能使应用发者定制所有的标准Delphi部件 要创建事件 应当理解

  ● 什么是事件

  ● 怎样实现标准事件

  ● 怎样定义自己的事件

   什么是事件

  事件是联接发生的事情与某些代码的机制 或者说是方法指针 一个指向特定对象实例的特定方法的指针 从部件用户的角度 事件是与系统事件(如OnClick)有关的名称 用户能给该事件赋特定的方法供调用 例如 按钮Buttonl有OnClick方法 缺省情况下Delphi在包含该按钮的窗体中产生一个为ButtonlClick的方法 并将其赋给OnClick 当一个Click事件发生在按钮上时 按钮调用赋给OnClick的方法ButtonlClick:

  部件用户将事件看作是由用户编写的代码 而事件发生时由系统调用的处理办法

  从部件编写者角度事件有更多的含义 最重要的是提供了一个让用户编写代码响应特定事情的场所

  要编写一个事件 应当理解

  ● 事件和方法指针

  ● 事件是属性

  ● 事件处理过程类型

  ● 事件处理过程是可选的

  ⑴ 事件是方法指针

  Delphi使用方法指针实现事件 一个方法指针是指向特定对象实例的特定方法的特定指针 作为部件编写者 能将方法指针作为一种容器 你的代码一发现事情发生 就调用由用户定义的方法

  方法指针的工作方式就象其它的过程类型 但它们保持一个隐含的指向对象实例的指针 所有的控制都继承了一个名为Click的方法 以处理Click事件 Click方法调用用户的Click事件处理过程

  procedure TControl Click;

  begin

  if Assigned(OnClick ) then OnClick( Self )

  end;

  如果用户给Control的OnClick事件赋了处理过程(Handle) 那鼠标点按Control时将导致方法被调用

  ⑵ 事件是属性

  部件采用属性的形式实现事件 不象大多数其它属性 事件不使用方法来使实现read和write部分 事件属性使用了相同类型的私有对象域作为属性 按约定域名在属性名前加 F 例如OnClick方法的指针 存在TNotifyEvent类型FOnClick域中 OnClick事件属性的声明如下

  type

  TControl=class ( TComponent )

  private

  FOnClick: TNofiFyEvent; 声明保存方法指针的域

  protected

  property OnClick: TNotifyEvent read FOnClick write FOnClick;

  end;

  象其它类型的属性一样 你能在运行时设置和改变事件的值 将事件做成属性的主要好处是部件用户能在设计时使用Object Inspector设置事件处理过程

  ⑶ 事件处理过程类型

  因为一个事件是指向事件处理过程的指针 因此事件属性必须是方法指针类型 被用作事件处理过程的代码 必须是相应的对象的方法

  所有的事件方法都是过程 为了与所给类型的事件兼容 一个事件处理过程必须有相同数目和相同类型的相同顺序的参数 Delphi定义了所有标准事件处理过程的方法类型 当你创建自己的事件时 你能使用已有的事件类型 或创建新的 虽然不能用函数做事件处理过程 但可以用var参数得到返回信息

  在事件处理过程中传递var参数的典型例子是TKeyPressEvent类型的KeyPressed事件 TKeyPressEvent定义中含有两个参数 一个指示哪个对象产生该事件 另一个指示那个键按下

  type

  TKeyPressEvent=procedure( Sender: TObject; var key: char) of Object;

  通常key参数包含用户按下键的字符 在某些情况下 部件的用户可能想改变字符值 例如在编辑器中强制所有字符为大写 在这种情况下 用户能定义下列的事件处理过程

  procedure TForml EditlKeyPressed( Sender: TObject; var key: char)

  begin

  key := Upcase( key )

  end;

  也可使用var参数让用户覆蓋缺省的处理

  ⑷ 事件处理过程是可选的

  在为部件创建事件时要记住部件用户可能并不编写该事件的处理过程 这意味着你的部件不能因为部件用户没有编写处理代码而出错 这种事件处理过程的可选性有两个方面

  ① 部件用户并非不得不处理事件

  事件总是不断地发生在Windows应用程序中 例如 在部件上方移动鼠标就引起Windows发送大量的Mouse Move消息给部件 部件将鼠标消息传给OnMouseMove事件 在大多数情况下 部件用户不需要关心MouseMove事件 这不会产生问题 因为部件不依赖鼠标事件的处理过程 同样 自定义部件也不能依赖用户的事件处理过程

  ② 部件用户能在事件处理过程写任意的代码

  一般说来 对用户在事件处理过程中的代码没有限制 Delphi部件库的部件都支持这种方式以使所写代码产生错误的可能性最小 显然 不能防止用户代码出现逻辑错误

   怎样实现标准事件

  Delphi带的所有控制继承了大多数Windows事件 这些就是标准事件 尽管所有这些事件都嵌在标准控制中 但它们缺省是protected 这意味着用户无法访问它们 当创建控制时 则可选择这些事件使用户可用 将这些标准事件嵌入自定义控制需要考虑如下

  ● 什么是标准事件

  ● 怎样使事件可见

  ● 怎样修改标准事件处理过程

  ⑴ 什么是标准事件

  有两种标准事件 用于所有控制和只用于标准Windows控制

  最基本的事件都定义在对象TControl中 窗口控制 图形控制和自定义控制都继承了这些事件 下面列出用于所有控制的事件

  OnClick OnDragDrop OnEndDrag OnMouseMove

  OnDblClick OnDragOver OnMouseDown OnMouseUp

  所有标准事件在TControl中都定义了相应的protected动态方法 只是没有加 On 例如OnClick事件调用名为Click的方法

  标准控制(从inControl继承)具有下列事件

  OnEnter OnKeyDown OnkeyPress OnKeyUp OnExit

  正如TControl中的标准事件 窗口控制也有相应protected动态方法

  ⑵ 怎样使事件可见

  标准事件的声明是protected 如果想使用户在运行时或设计时能访问它们 就需要将它们重声明为public和 published 重声明属性而不描述它的实现将继承相同的实现方法 只是改变了访问级别 例如 创建一个部件并使它的OnClick事件出现在运行时 你可增加下面的部件声明

  type

  TMyControl=class(TCustomControl)

  published

  property OnClick; 使OnClick在objectinspector中可见

  end;

  ⑶ 怎样修改标准事件处理过程

  如果想修改自定义部件响应某种事件的方法 可以重写代码并将其赋给事件 将联接每个标准事件的方法声明的protected是出于慎密的考虑 通过 覆蓋实现方法 能修改内部事件处理过程 通过调用继承的方法 能保持标准事件处理过程

  调用继承的方法的顺序是很重要的 一般首先调用继承的方法 允许用户的事件处理过程代码在你的定制代码前执行 然而也有在调用继承的方法之前执行自己的代码情况出现

  下面是一个覆蓋Click事件的例子

  procedure TMyControl Click;

  begin

  inherited Click; 执行标准处理 包括调用事件处理过程你自己的定制代码

  end;

   定义自己的事件

  定义全新的事件的情况是很少见的 只有当部件的行为完全不同于任何其它事件才需要定义新事件 定义新事件一般包含三个步骤

  ● 触发事件

  ● 定义处理过程类型

  ● 声明事件

  ● 调用事件

  ⑴ 触发事件

  定义自己的事件要遇到的第一个关键是 当使用标准事件时你不需要考虑由什么触发事件 对某些事件 问题是显然的 例如 一个MouseDown事件是在用户按下鼠标的左键时发生 Windows给应用发送WM_LBUTTONDOWN消息 接到消息后 一个部件调用它的MouseDown方法 它依次调用用户的OnMouseDown事件处理过程代码 但是有些事件却不是那么可以描述清楚的 例如 滚行杠有一个OnChange事件 可被各种情况触发 包括按键 鼠标点按或其它按制中的改变 当定义事件时 你必须使各种情况的发生调用正确的事件

  这里有TControl处理WM_LBUTTONDOWN消息的方法 DoMouseDown是私有的实现方法 它提供了一般的处理左 右和中按钮的方法 并将Windows消息的参数转换为MouseDown方法的值

  type

  TControl = class(TComponent)

  private

  FOnMouseDown: TMouseEvent;

  procedure DoMouseDown(var Message: MMouse; Button: TMouseButton;

  Shift: TShiftState)

  procedure WMLButtonDown(var Message: MLButtonDown)

  message M_LBUTTONDOWN;

  protected

  procedure MouseDown(Button: TMouseButton; Shift: TShiftState;

  X Y: Integer) dynamic;

  end;

  procedure TControl MouseDown(Button: TMouseButton; Shift: TShiftState; X Y: Integer)

  begin

  if Assigned(FOnMouseDown) then

  FOnMouseDown(Self Button Shift X Y) 调用事件处理过程

  end;

  procedure TControl DoMouseDown(var Message: MMouse; Button: TMouseButton;

  Shift: ShiftState)

  begin

  with Message do

  MouseDown(Button KeysToShiftState(Keys) + Shift XPos YPos) 调用动态方法

  end;

  procedure TControl WMLButtonDown(var Message: MLButtonDown)

  begin

  inherited; perform default handling

  if csCaptureMouse in ControlStyle then

  MouseCapture := True;

  if csClickEvents in ControlStyle then

  Include(FControlState csClicked)

  DoMouseDown(Message mbLeft []) 调用常规的mouse down 方法

  end;

  当两种事情 状态变化和用户交互 发生时 处理机制是相同的 但过程稍微不同 用户交互事件将总是由Windows消息触发 状态改变事件也与Windows消息有关 但它们也可由属性变化或其它代码产生 你拥有对自定义事件触发的完全控制

cha138/Article/program/Delphi/201311/25119

相关参考

知识大全 Delphi自定义部件开发(二)[2]

DELPHI基础教程:Delphi自定义部件开发(二)[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(二)[1]

DELPHI基础教程:Delphi自定义部件开发(二)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(一)[3]

DELPHI基础教程:Delphi自定义部件开发(一)[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(三)[3]

DELPHI基础教程:Delphi自定义部件开发(三)[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(四)[3]

DELPHI基础教程:Delphi自定义部件开发(四)[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(一)[2]

DELPHI基础教程:Delphi自定义部件开发(一)[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(一)[1]

DELPHI基础教程:Delphi自定义部件开发(一)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(一)[4]

DELPHI基础教程:Delphi自定义部件开发(一)[4]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(三)[4]

DELPHI基础教程:Delphi自定义部件开发(三)[4]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看

知识大全 Delphi自定义部件开发(三)[2]

DELPHI基础教程:Delphi自定义部件开发(三)[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看