创建自己的Dephi构件
4. 增加保护方法MouseEnter、MouseLeave、CM_MouseEnter和 CM_MouseLeave
本文链接地址:http://www.oyaya.net/fanwen/view/142642.html
加入如下的代码:
protected
Procedure MouseEnter; virtual; Procedure MouseLeave; virtual;
Procedure CM_MouseEnter(var msg : Tmessage);
Message CM_MouseEnter;
Procedure CM_MouseLeave(var msg : Tmessage);
Message CM_MouseLeave;
&n
bsp; …
ImPlementation
Procedure MouseEnter;
Begin
If assigned(FonMouseEnter) then
《创建自己的Dephi构件(第4页)》