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.
Luciano Pimenta®
