Aktives TabSheet farblich hervorheben

[Christian Seehase]

Moin Chemiker,

hier mal ein kleines Beispiel:

Delphi-Quellcode:

procedure TfrmcsDLMain.pcMainDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if Active then begin
    Control.Canvas.Brush.Color := clInfoBk;
    Control.Canvas.Font.Style  := Control.Canvas.Font.Style + [fsBold];
  end else begin
    Control.Canvas.Brush.Color := clBtnFace;
    Control.Canvas.Font.Style  := Control.Canvas.Font.Style - [fsBold];
  end;
  Control.Canvas.FillRect(Rect);
  Control.Canvas.TextOut(Rect.Left+2,Rect.Top+2,(Control as TPageControl).Pages[TabIndex].Caption);
end;

Das die Bezeichnung verschwindet ist nicht weiter verwunderlich, denn wenn das auf OwnerDraw gestellt ist, muss Du auch die Beschriftung selber zeichnen (TextOut).