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.

�

Luciano Pimenta^�

Dicas - Alterando a cor dos TabSheet de um PageControl

Veja como alterar a cor dos TabSheets de um PageControl.

Artigos relacionados