大家好：
我想在元件PageControl的標籤頁的部份上色 也就是切頁的那個標籤頭，不是該頁頁面。

參考了站上一些文章：
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=25312
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=89307
等文章
不曉得哪裡有錯誤
或者是我少設定了什麼 請大家幫我看看，謝謝。
首先我有將PageControl1的OwnerDraw屬性設成True
並在表單開啟、以及PageControl1的OwnerDraw中寫入以下程式碼
以下是程式碼：

[code cpp]
void __fastcall Tform_settings::FormCreate(TObject *Sender)
{
PageControl1->OwnerDraw = true;
}

void __fastcall Tform_settings::PageControl1DrawTab(
TCustomTabControl *Control, int TabIndex, const TRect &Rect,
bool Active)
{ //PageControl Tab上色
if (PageControl1->ActivePageIndex == TabIndex)
{
PageControl1->Canvas->Font->Color=clRed;
}
else
{
PageControl1->Canvas->Font->Color=clBlue;
}
}
[/code]

因為只有指定字型的顏色,並沒有做其他上色的動作

編輯記錄

抱歉
我可能說錯了

應該是說
只要變更標籤頁的文字顏色就可以了
我調了font屬性的color沒反應
不知道是不是我調錯...

你還要用TextOut把字畫上去

===================引 用 BCBNPC 文 章===================
抱歉
我可能說錯了

應該是說
只要變更標籤頁的文字顏色就可以了
我調了font屬性的color沒反應
不知道是不是我調錯...

OK~我了解了
解決了~謝謝板大!


[code cpp]
PageControl1->Canvas->TextOut(Rect.Left,Rect.Top,PageControl1->Pages[TabIndex]->Caption);
[/code]