タブシートのドッキングされたフォームの色を正しい色に設定するにはどうすればよいですか？

Question

TFormをTTabSheetにドッキングすると、フォームの背景色が灰色になります。一方のタブ紙には、背景色が白です。

テーマ設定が無効になっていると、それはもっと複雑になります（クラシックなWindowsテーマなど）。

現在のコードでは、灰色のフォームには白いボーダーがあり、これはかなり醜いです。

したがって、フォームの背景色をタブシートの背景色に設定するにはどうすればよいですか？これでうまくいかない場合：タブ紙の背景色をフォームの背景色に設定するにはどうすればよいですか？

実行時テーマを有効にし、実行時テーマを無効にする必要があります。このブログのポストクリスRollistonによってTheming Owner-Drawn Tabs題しへ

program Project1; 

uses 
    Graphics, 
    Controls, 
    Forms, 
    ComCtrls; 

{$R *.res} 

var 
    Main  : TForm; 
    Sub   : TForm; 
    PageControl : TPageControl; 
    TabSheet : TTabSheet; 
begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TForm, Main); 
    Application.CreateForm(TForm, Sub); 
    PageControl  := TPageControl.Create(Main); 
    PageControl.Parent := Main; 
    PageControl.Align := alClient; 
    TabSheet    := TTabSheet.Create(Main); 
    TabSheet.PageControl := PageControl; 
    Sub.Dock(TabSheet, TabSheet.ClientRect); 
    Sub.Align := alClient; 
    Sub.Show; 
    // Sub.Color := clWhite; // TabSheet.Color; 
    Application.Run; 
end. 

Answer 1

私はこの問題を回避するに

type 
    TWinControlAccess = class(TWinControl) 
    end; 

procedure TMainForm.CreateEmbedded(FormClass: TFormClass; Parent: TWinControl); 
var 
    form: TForm; 
begin 
    form := FormClass.Create(Self); 
    form.Align := alClient; 
    form.BorderIcons := []; 
    form.BorderStyle := bsNone; 
    form.Parent := Parent; 
    TWinControlAccess(form).ParentBackground := True; // <<<- 
    form.Show; 
end; 

Answer 2

ヘッド。

---

引用：

問題：あなたが タブやページコントロールのタブのフォントの色をカスタマイズしたいと言います。これまでのところ、これは単純でした。OwnerDraw をTrueに設定し、フォント を設定してテキストを描画するOnDrawTabのハンドラを提供しました。しかし、Windowsのテーマでは、 は単純ではありません。なぜなら、OwnerDrawをTrueに設定すると、 コントロールのテーマが無効になるからです。このようなVCLの制限ではなく、これは基本的なAPIコントロールの振る舞いを反映するだけであり、それについて考えるなら後方互換性の観点からは が適しています。 しかし、あなたが望むものが分かっていれば、これはまだ問題になります。 は単にタブのキャプションをカスタマイズするだけです。 TTabControlEx およびTPageControlExを入力します。これは、OwnerDrawがTrueに設定されている場合でも、テーマ化APIを使用して の「外観」を提供します。

---

少なくとも、彼が持っているかもしれないが、部分的に彼のTTabControlExおよび/またはTPageControlExコンポーネントを使用して問題を解決しました。