|
> //确定鼠标进入中是否有代码，如果有执行
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]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
