Artigos Delphi Dicas - Alterando a cor dos TabSheet de um PageControl

Alterando a cor dos TabSheet de um PageControl

Adicione em um formulário um PageControl e adicione 6 TabSheet. Altera a propriedade OwnerDraw do PageControl para True. No evento OnDrawTab do PageControl, digite o seguinte código:

 

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;

end;

Control.Canvas.Font.Style := [fsBold];

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

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

 

Rode a aplicação e veja o resultado.

PageControl.gif

 

Luciano Pimenta®