Detecting Mouse over a label and change it's color 1

[Guest_imported]

Hello All ,

I'd like to know how to detect that a mouse is over a label , and how to detect that the mouse is not over anymores. I was using the OnMouseMove , but I didn't get the effect that i'm looking for that when the mouse is over a label , change it's color.

TIA

Thor

 

[cyprus106]

Your going to need to make a new component that is a decendent of the TLabel. then add these events under the private section of the header file:

TNotifyEvent FOnMouseEnter;
TNotifyEvent FOnMouseLeave;

these under the __published:
__property TNotifyEvent OnMouseEnter = {read = FOnMouseEnter, write = FOnMouseEnter};
__property TNotifyEvent OnMouseLeave = {read = FOnMouseLeave, write = FOnMouseLeave};

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
END_MESSAGE_MAP(TComponent);

put these in the protected:
void __fastcall CMMouseEnter(Messages::TMessage &Message);
void __fastcall CMMouseLeave(Messages::TMessage &Message);




when you've got all those, go back to your .cpp file and add this:

__fastcall VpLabel::VpLabel(TComponent* Owner)
: TLabel(Owner)
{
FOnMouseEnter = 0;
FOnMouseLeave = 0;
}

void __fastcall VpLabel::CMMouseEnter(Messages::TMessage &Message)
{
if (FOnMouseEnter)
FOnMouseEnter(this);
}

void __fastcall VpLabel::CMMouseLeave(Messages::TMessage &Message)
{
if (FOnMouseLeave)
FOnMouseLeave(this);
}

Hope that helps!
Cyprus