Aktives TabSheet farblich hervorheben

[Chemiker]

Hallo,

die beiden Anweisungen

Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold]; habe ich gelöscht, weil sie dazu führten das über die Reiter hinaus geschrieben wurde.

Darüberhinaus habe ich in der Anweisung

Control.Canvas.TextOut(Rect.Left+2,Rect.Top+2,(Control as TPageControl).Pages[TabIndex].Caption); die 2 von Rect.Left und Rect.Top durch eine 5 ersetzt.

Das sieht schon ganz gut aus, da ist nur noch ein Problem:

ich habe 2 PageControls, bei dem äußern PageControl ist ein Rahmen um die Beschriftung was nicht so gut aussieht, bei dem Inneren ist dieser nicht.

Wie kann man vermeiden das der Rahmen um die Beschriftung der Reiter gezeichnet wird.

Bis bald Chemiker