Buscar por:

Alterando a cor dos tabsheet de um pagecontroll

Código

- Coloque um PageControll num form

- Adicione 6 TabSheet (New Page)

- Agora basta implementar o codigo abaixo

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;

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

begin

  case TabIndex of

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

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

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

    3: Control.Canvas.Font.Color:=clYellow;

    4: Control.Canvas.Font.Color:=clMaroon;

    5: Control.Canvas.Font.Color:=clWhite;

  end;

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

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

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  PageControl1.OwnerDraw:=true;

end;