Buscar por:

Colocando cor no PageControl

Código

type tmControl = class(TControl);

procedure TForm1.FormCreate(Sender: TObject);

var i:Integer;

begin

 PageControl1.OwnerDraw := true;

 for i := 0 to PageControl1.PageCount-1 do

   TmControl(PageControl1.Pages[i]).Color := clAqua;

 TmControl(PageControl1).Color := clBlack;

 TmControl(PageControl1).Font.Color := clYellow;

end;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;

 TabIndex: Integer; const Rect: TRect; Active: Boolean);

var PC:TPageControl;

begin

 PC := TPageControl(Control);

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

end;