Mensagens - mouse enter e leave

Enter topic text here.Type

  TNovoLabel = class(TLabel)

  private

    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

  ..

  ..

procedure TNovoLabel.CMMouseEnter(var Message: TMessage);

begin

  // Mouse está sobre o Label

end;

procedure TNovoLabel.CMMouseLeave(var Message: TMessage);

begin

  // Mouse saiu de cima do Label

end;