Dicas - Alterando a cor dos TabSheet de um PageControl

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (1)

Veja como alterar a cor dos TabSheets 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®

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?