Delphi背后---初学者参考之二(1)

procedure Register;

begin

//在Delphi的IDE中注册组件，显示在面板"MyControl"上

RegisterComponents(''''MyControl'''', [TMyPanel]);

end;

procedure TMyPanel.WMMouseEnter(var Message: TMessage);

begin

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

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…】，如下图：

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