Tabsheet-Caption hervorheben

[Bummi]

wenn Du OwnerDraw auf true setzt:

Delphi-Quellcode:

procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
   if tabIndex=2 then
      begin
           Control.Canvas.FillRect(Rect);
           Control.canvas.Font.Style := [fsBold, fsunderline];
      end;
   Control.canvas.TextOut(rect.Left +4, rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
end;