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
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
