加入如下的代码:

    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

                ImPlementation

                Procedure  MouseEnter;

                Begin

If  assigned(FonMouseEnter) then

上一页  [1] [2] [3] [4] [5] [6] 下一页