if Assigned(FOnMouseEnter) then

    FOnMouseEnter(Self);

end;

procedure TMyPanel.WMMouseLeave(var Message: TMessage);

begin

  //确定鼠标进入中是否有代码，如果有执行

  if Assigned(FOnMouseLeave) then

    FOnMouseLeave(Self);

end;

end.

u       然后点击【Component】->【Install Component…】，如下图：

在“Unit file name”中选中我们刚才的单元MyPanelUnit.pas，其他选项默认。然后点击“OK”， 在“Package dclusr.bpk will be build then install, Continue?”选择“Yes”，待编译安装完后保存，这样TmyPanel控件就被安装到Delphi中了。滚动Delphi的控件面板到最后，将会看到如下图的控件页MyControl：

u       然后再新建一个工程，单击【File】->【New】->【Application】，把MyControl页中的MyPanel拖到Form上，按F11键，切换到Events页，如下：

和TPanel比较一下，看是不是多了OnMouseEnter和OnMouseLeave事件。双击OnMouseEnter，写代码如下：

procedure TForm1.MyPanel1MouseEnter(Sender: TObject);

begin

  ShowMessage(''''鼠标进入MyPanel1'''');

end;

然后按F9运行，移动鼠标到MyPanel1上，看一下结果如何。

就这么简单，我们扩展了TPanel，使其具有处理鼠标进入和移开事件的能力，所以VCL并不神秘，任何人都可以重写里面的组件（类），使之成为自己所要的东西。

l         Delphi支持接口继承，从某种意义上说实现了多重继承，如TComponent的定义如下：

TComponent = class(TPersistent, IInterface,

IInterfaceComponentReference)

l         不要拿抽象类创建实例。类中只要有一个方法是抽象方法，那么这个类就是抽象类。如TStrings定义如下：

    TStream = class(TObject)

  private

    …

  protected

    …

  public

    function Read(var Buffer; Count: Longint): Longint; virtual; abstract;

    function Write(const Buffer; Count: Longint): Longint; virtual; abstract;

    …

  end;

一个方法的定义中只要有abstract关键字就是抽象方法。用抽象类来创建实例没有任何意义，因为Read和Write并没有实现，如果调用则会出现为例。

(未完，请参看Delphi背后---初学者参考之二(2) )

(如需要转载，请注明出处及作者http://haitian.myrice.com)

上一页  [1] [2]