Question

关于DELPHI7 vcl控件TPagecontrol的疑惑

问题一：TPagecontrol也是继承至TControl类，而TContro1类是有个Color的属性的，怎么TPageControl没有这个属性呢
TControl = class(TComponent)
...
protected
...
property Color: TColor read FColor write SetColor stored IsColorStored default clWindow;
...

问题二：怎么设置TPageControl 组件的面板背景色

Answer 1

TPageControl 组件有Canvas属性，可以利用这个属性改变背景颜色。

procedure TForm1.Button1Click(Sender: TObject);
begin
//--------------------
PageControl1.Canvas.Brush.Color:=clRed;
PageControl1.Canvas.FillRect(PageControl1.ClientRect);
//-------------------
end;