表題の通りのものです．説明の必要は特にないでしょう．


-----------------------------------------------------------------------
unit MyBtn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls, ExtCtrls, Buttons;

  TClrChangeBtn = class(TBitBtn)
  protected
    FNormalColor,FHighLightColor: TColor;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property HighlightColor: TColor
             read FHighlightColor write FHighlightColor default clWhite;
  end;


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Sample', [TClrChangeBtn]);
end;


{ TClrChangeBtn }

procedure TClrChangeBtn.CMMouseEnter(var Message: TMessage);
begin
  FNormalColor := Font.Color;
  Font.Color := FHighlightColor;
  inherited;
end;

procedure TClrChangeBtn.CMMouseLeave(var Message: TMessage);
begin
  Font.Color := FNormalColor;
  inherited;
end;

constructor TClrChangeBtn.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FHighlightColor := clWhite;
end;

end.
                                                  ＴＮ(CQJ01721)

Original document by ＴＮ            氏 ID:(CQJ01721)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。