SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Highlight component

Use CM_MOUSEENTER and CM_MOUSELEAVE messages:

  TYourObject = class(TAnyControl)
  ...
  private
    procedure CMMouseEnter(var AMsg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var AMsg: TMessage); message CM_MOUSELEAVE;
  ...
  end;

implementation

procedure TYourObject.CMMouseEnter(var AMsg: TMessage);
begin
  ParentColor:=False;
  Color:=clHighlightText;
end;

procedure TYourObject.CMMouseLeave(var AMsg: TMessage);
begin
  ParentColor:=True;
end;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes