pagecontrol怎么改背景颜色？？[新版]

tyl123

pagecontrol怎么改背景颜色？？


红色的地方怎么改呢？？？？？

lixy

就在每個 Page 中貼一個 Panel , 設定 align = alClient , 把 color 設定為你想要
的顏色 ,應該就可以了 ,但如果你是要改頁標籤的顏色 ,那就把 OwnerDraw 的屬性設為
True , 在 onDrawTab 的屬性自己畫你想要的顏色囉

lixy

>>1. 將PageControl之OwnerDraw設為True
>>2. PageControl 之 OnDrawTab
>>
>>procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
>>TabIndex: Integer; const Rect: TRect; Active: Boolean);
>>begin
>>case TabIndex of
>>0: Control.Canvas.Brush.Color:=clMaroon;
>>1: Control.Canvas.Brush.Color:=clBlue;
>>2: Control.Canvas.Brush.Color:=clGreen;
>>end;
>>control.Canvas.FillRect(Rect);

  Control.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2,    TPageControl(Control).Pages[TabIndex].Caption);
>>Active:=True;
>>end;
>
>謝謝你的幫忙!
>再請問我使用PageControl 之 OnDrawTab後,
>如何能再讓TabSheet.Caption再秀出來?
>Thanks.

tyl123

更新啦，在帮忙看下，谢谢！！

tyl123

问题更新啦，再帮忙看看！！

lixy

procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  PageControl1.Brush.Color :=$0000;
end;