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).