TabSheet |
|
尚未結案
|
|
newbie
初階會員   發表：81 回覆：45 積分：25 註冊：2002-11-28 發送簡訊給我 |
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 大家好, 使用 PageControl 內有幾個 設好的 TableSheet, 我想要做一個功能就是被點選到的 TabSheet 上面的 Tab Caption 字型可以變化一下或顏色變化, 這樣使用者可以更清楚知道選到的 TabSheet 是哪一頁, 請問大家知道怎麼做嗎? Thanks,
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
rockmax
一般會員  發表：24 回覆：12 積分：7 註冊：2003-02-20 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
China Join
中階會員 發表：81 回覆：242 積分：89 註冊：2003-03-12 發送簡訊給我 |
因為 <,> 這符號會不見，請改下面紅色的地方，並將 <,> 改成小寫 TRect rc=Control->TabRect(TabIndex);
Control->Canvas->Font->Color=Active? clRed: clBlack;
Control->Canvas->Font->Style=Active? TFontStyles()＜＜fsBold: TFontStyles()＞＞fsBold;
Control->Canvas->TextOutA(rc.left 2, rc.top 2, PageControl1->Pages[TabIndex]->Caption); RaynorPao 版主安安
|
|
newbie
初階會員 發表：81 回覆：45 積分：25 註冊：2002-11-28 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 不好意思, 再請教一下大家 我在 Compiler 的時候 會在第一行出現, TRect rc=Control->TabRect(TabIndex); "raised exception class EListError with message 'List index out of bounds(1)' 的錯誤說, 請問大家知道原因嗎?
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
newbie
初階會員 發表：81 回覆：45 積分：25 註冊：2002-11-28 發送簡訊給我 |
發表時間：2003-04-29 11:41:12
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-04-23 18:44:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |