请教delphi中Tabsheet的颜色如何更改

Question

请教delphi中Tabsheet的颜色如何更改
因Tabsheet属性中没colour项，请教！

Answer 1

你可以用它的Canvas来绘画，算比较难的问题

Answer 2

首先
PageControl1.OwnerDraw := True;在DrawTab事件中做，
以下例子procedure TFrmSetup.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  rt: TRect;
begin
  with PageControl1.Canvas do
  begin
    rt := Rect;
    Brush.Color := clBtnFace;
    FillRect(rt);
    if PageControl1.Pages[TabIndex].Enabled = false then
      Font.Color := clGrayText;
    DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption),
      -1, rt, DT_CENTER or DT_VCENTER or DT_BOTTOM);
  end;
end;