Buscar por:

Colorir pagecontrol

Código

Colocar PageControl1.OwnerDraw := True;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;

  TabIndex: Integer; const Rect: TRect; Active: Boolean);

begin

//pinta a fonte

case TabIndex of

0: Control.Canvas.Font.Color:=clwhite;

1: Control.Canvas.Font.Color:=clyellow;

2: Control.Canvas.Font.Color:=claqua;

end;

// pinta a paleta / aba

case TabIndex of

0: Control.Canvas.brush.Color:=clgreen;

1: Control.Canvas.brush.Color:=clred;

2: Control.Canvas.brush.Color:=clblue;

end;

PageControl1.Canvas.Rectangle(Rect);

Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);

// pinta a parte interna (tabsheet)

  PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color;

PageControl1.Pages[TabIndex].Repaint;

end;