Scalabium Software |
|
Knowledge for your independence'. | |
Home Delphi and C++Builder tips |
#38: How can I add a flat/hot track effect for your components |
|
If you want to add a useful feature to your component (like
URL in html or PageControl/TabControl.HotTrack) you must handle
the CM_MOUSEENTER and CM_MOUSELEAVE messages: type TyourControl = class(TDescControl) private { Private declarations } FLinkFont: TFont; FPassiveFont: TFont; procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE; end; implementation procedure TyourControl.CMMouseEnter(var Msg: TMessage); begin //Change color when mouse is over control Font.Assign(FLinkFont); end; procedure TyourControl.CMMouseLeave(var Msg: TMessage); begin //Change color when mouse leaves control Font.Assign(FPassiveFont); end; As example, you can view a sources of the TURLLabel and/or THighLightLabel
components on our site.
|
Copyright© 1998-2024, Scalabium
Software. All rights reserved. |