Make your own free website on Tripod.com

Hot Text

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.

Things to add

  • 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.
     
    BACK