This is code for Hot Text component. This component is TLabel componet add to it new method. This label will change its color to Red when the mouse enter it, and go back to Black when the mouse leaves it.
New property for the Hot Color. New events, on mouse enter, and on mouse leaves. The Component should keep the original color to chage it back when the mouse leave.
unit HotText; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type THotText = class(TLabel) private { Private declarations } procedure CMEnter (var m:TMsg); message CM_MOUSEENTER; procedure CMLeave (var m:TMsg); message CM_MOUSELEAVE; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [THotText]); end; procedure THotText.CMEnter ; begin font.color:= clNavy; end; procedure THotText.CMLeave ; begin font.color:= clBlack; end; end.