ページコントロールのタブの色の変更

解決

クッキー 2004-02-12 07:11:57 No: 7061

Delphi のPageControl のタブの色をページごとに変えるにはどうしたらいいですか

jok 2004-02-12 08:10:58 No: 7062

OwnerDraw を true にして、こんな感じ

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control.Canvas do begin
    case TabIndex of
      0:Brush.Color := clAqua;
      1:Brush.Color := clLime;
      2:Brush.Color := clFuchsia;
    else
      Brush.Color := clGray;
    end;
    if Active then Brush.Color := clYellow;
    FillRect(Rect);
    TextOut(Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption);
  end;
end;

クッキー 2004-02-13 04:52:58 No: 7063

ありがとうございます。
さっそく、試してみましたが
イベント OnDrawTab をクリックしてコーディングしてみました。
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
に飛ばないようなのですが、何か設定しなけらばならないのでょか？
すみませんがよろしくお願いします

jok 2004-02-13 06:38:49 No: 7064

> OwnerDraw を true にして

これしましたか？

クッキー URL 2004-02-13 06:47:31 No: 7065

どうもありがとうございました。
色が変わりました。