{
Delphi3 Q&A100選に収録されている TabControlExコンポーネントのタブを色分
けする。
(1)Tabsプロパティを編集して４個のタブを作成しておく。
(2)OwnerDrawプロパティを Trueにしておく。
(3)OnDrawTabイベントに以下のコードを記述する。
}

procedure TForm1.TabControlEx1DrawTab(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TabControlEx1 do
  begin
    case Index of
      0: Canvas.Brush.Color:= clWhite;
      1: Canvas.Brush.Color:= clYellow;
      2: Canvas.Brush.Color:= clAqua;
      3: Canvas.Brush.Color:= clFuchsia;
    end;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Tabs[Index]);
  end;
end;

                ☆ Ｈ-Ｔriton (^^) since 1996 ☆
                  Avalon's Friendly Club #80008

Original document by H-Triton        氏 ID:(QZV11422)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。