by Fons <fonzzzNO@[EMAIL PROTECTED]
>
Feb 28, 2008 at 07:34 PM
>> I want to get the MOUSEENTER and MOUSELEAVE.
>
> I don't know if this is what you're looking for, but here's a snippet
> from one of my programs:
>
> procedure TNagForm.lbAboutMouseEnter(Sender: TObject);
> begin
> if Sender is TLabel then Screen.Cursor := crHandPoint;
> if Sender is TLabel then TLabel( Sender ).Font.Color := clMaroon;
> end; //lbAboutMouseEnter
>
> procedure TNagForm.lbAboutMouseLeave(Sender: TObject);
> begin
> if Sender is TLabel then Screen.Cursor := crDefault;
> if Sender is TLabel then TLabel( Sender ).Font.Color := clBlack;
> end; //lbAboutMouseLeave
My problem started with the TTreeView (changing text in a label with the
description of the item that is pointed to). I used the TLabel as an
example. Not knowing that the TLabel has an OnMouseEnter and
OnMouseLeave event. And now I'm wondering why only the TLabel does have
it.
Thanks,
Fons.