TabControl怎样设选中哪一个TAB就用红色把它明显出来。

[nternter]

TabControl怎样设选中哪一个TAB就用红色把哪一项TAB显出来。

[xiaohuan]

用tabset配合着用

[nternter]

请详述！

[myling]

首先，TabControl是一个单独的对象，想改变单个标签，请使用pagecontrol

其次，如果确实想改变，在 onchange 事件中改变

[delphiyesgood]

if TabControl1.ActivePageIndex = 0 then
.......................

[delphiyesgood]

if PageControl1.ActivePageIndex = 0 then
.......................................
if PageControl1.ActivePageIndex = 1 then
.......................................

[sysu]

设置TabControl的OwnerDraw属性为True，在它的OnDrawTab事件中：
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with TabControl1.Canvas do begin
if Active then
Brush.Color := clRed;
FillRect(Rect);
if Active then
TextOut(Rect.Left+5, Rect.Top+5, TabControl1.Tabs[TabIndex])
else
TextOut(Rect.Left+3, Rect.Top+3, TabControl1.Tabs[TabIndex]);
end;
end;

另外PageControl也是一样的。

[findcsdn]

// ownerdraw := True;

// 写OnDrawTab事件;
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
Tmp: Integer;
rec: TRect;
begin
Tmp := TabIndex;
Rec := Rect;
with Control as TTabControl do
begin
if active then
begin
Canvas.Brush.Color := clbtnface;
canvas.FillRect(Rect);
Canvas.Brush.Color := clred;
Dec(Rec.Bottom, 3);
canvas.FillRect(Rec);
canvas.TextOut(rect.Left + 7, rect.Top + 4, Tabs.Strings[Tmp]);
end
else begin
Canvas.Brush.Color := clbtnface;
canvas.FillRect(rect);
canvas.TextOut(rect.Left + 3, rect.Top + 4, Tabs.Strings[Tmp]);
end;
end;
end;