Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID
PESQUISAR DICA:
PAGECONTROL - ALTERAR COR DOS TABS // Alterar a propriedade OwnerDraw do Pagecontrol para true procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin with PageControl1.Canvas do begin if Active then Brush.Color := clAqua else Brush.Color := clYellow; FillRect(Rect); Font.Color := clNavy; Font.Name := 'Verdana'; Font.Style := [fsBold]; if TabIndex = 0 then TextOut(Rect.left+5, Rect.top+2, 'Primeira'); if TabIndex = 1 then TextOut(Rect.left+5, Rect.top+2, 'Segunda'); if TabIndex = 2 then TextOut(Rect.left+5, Rect.top+2, 'Terceira'); end; end;