PageControl上面的tabsheet1顏色怎麼變啊,我把下面的變色了,可上面的顏色怎麼變啊 |
尚未結案
|
gavinj123
初階會員 發表:88 回覆:48 積分:27 註冊:2002-10-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
1.PageControl1.OwnerDraw := True;
2.
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var c: TCanvas; begin c := PageControl1.Canvas; case TabIndex of 0: c.brush.Color := clRed; 1: c.brush.Color := clBlue; end; c.FillRect(Rect); end;--- Everything I say is a lie. |
gavinj123
初階會員 發表:88 回覆:48 積分:27 註冊:2002-10-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var c: TCanvas; s: string; begin c := PageControl1.Canvas; case TabIndex of 0: begin c.brush.Color := clRed; s := 'tabsheet1'; end; 1: begin c.brush.Color := clBlue; s := 'tabsheet2'; end; end; c.FillRect(Rect); c.TextOut(Rect.Left 2, Rect.Top 2, s); end;--- Everything I say is a lie. |
gavinj123
初階會員 發表:88 回覆:48 積分:27 註冊:2002-10-15 發送簡訊給我 |
|
hidylan
一般會員 發表:14 回覆:17 積分:6 註冊:2004-12-20 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
判斷 ActivePageIndex 的值即可:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var c: TCanvas; s: string; begin c := PageControl1.Canvas; s := PageControl1.Pages[TabIndex].Caption; if TabIndex = PageControl1.ActivePageIndex then c.brush.Color := clRed else c.brush.Color := clBlue; c.FillRect(Rect); c.TextOut(Rect.Left 2, Rect.Top 2, s); end;-- QBQ: 我能做什麼? |
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |