pagecontrol问题,相当于散分

Question

怎么才能改变PAGECONTROL上tabsheet的标题颜色,难道非得设置自定义draw然后自己写代码吗?

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TMainForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    TabSheet3: TTabSheet;
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure PageControl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  MainForm: TMainForm;
  i: Integer;implementation{$R *.dfm}procedure TMainForm.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  pt := PageControl1.ScreenToClient(pt);
  if PageControl1.IndexOfTabAt(pt.X, pt.Y ) = 1 then
    AllowChange := False;
end;procedure TMainForm.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 TabIndex = 1 then
      Font.Color := clGrayText;
    DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption),
      -1, rt, DT_CENTER or DT_VCENTER);
   end;
    
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw := True;
end;end.

Answer 2

在熟悉一遍:)
procedure TMainForm.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  pt := PageControl1.ScreenToClient(pt);
  if PageControl1.IndexOfTabAt(pt.X, pt.Y ) = 1 then
    AllowChange := False;
end;procedure TMainForm.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 TabIndex = 1 then
      Font.Color := clGrayText;
    DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption),
      -1, rt, DT_CENTER or DT_VCENTER);
   end;
    
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw := True;
end;end.procedure TMainForm.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  pt := PageControl1.ScreenToClient(pt);
  if PageControl1.IndexOfTabAt(pt.X, pt.Y ) = 1 then
    AllowChange := False;
end;procedure TMainForm.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 TabIndex = 1 then
      Font.Color := clGrayText;
    DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption),
      -1, rt, DT_CENTER or DT_VCENTER);
   end;
    
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw := True;
end;end.