Pagecontrol的標籤頁上色問題 |
答題得分者是:taishyang
|
BCBNPC
一般會員 ![]() ![]() 發表:14 回覆:15 積分:5 註冊:2008-11-25 發送簡訊給我 |
大家好:
我想在元件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] |
taishyang
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
BCBNPC
一般會員 ![]() ![]() 發表:14 回覆:15 積分:5 註冊:2008-11-25 發送簡訊給我 |
|
taishyang
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
BCBNPC
一般會員 ![]() ![]() 發表:14 回覆:15 積分:5 註冊:2008-11-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |