Page Control

Question

Galera algu�m sabe modificar cor da letra de uma pagecontrol ?ja tentei alterar a cor da Font mas ele continua na cor preta....

Aroldo Zanela · Answer

A propriedade OwnerDraw simplesmente informa ao componente se o controle do desenho fica por conta do Windows ou por conta do desenvolvedor. Coloque essa propriedade como True.

No evento OnDrawTab do page control, fa�a algo como:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; 
TabIndex: Integer; const Rect: TRect; Active: Boolean); 
begin 
  Control.Canvas.Brush.Color := Self.Color;   
  Control.Canvas.Font.Color := clWhite; 
  Control.Canvas.FillRect( Rect ); 
  Control.Canvas.TextOut( Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption ); 
end;

Esta dica foi enviada originalmente por Emerson.EN