tpagecontrol属性_如何修改pagecontrol上标签的底色(50分)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;

type

TTabsheet = class(ComCtrls.TTabSheet)

private

FColor: TColor;

procedure SetColor(value: TColor);

procedure WMEraseBkGnd(var msg: TWMEraseBkGnd);

message WM_ERASEBKGND;

public

constructor Create(aOwner: TComponent); override;

property Color: TColor read FColor write SetColor;

end;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

procedure FormCreate(Sender: TObject);

procedure PageControl1DrawTab(Control: TCustomTabControl;

TabIndex: Integer; const Rect: TRect; Active: Boolean);

private

{ Private declarations }