Hintergrundfarbe des AKTIVEB Tabsheets ändern

[juergen]

Hallo Bob68,
Super!!! Nun funzt alles so wie ich es gern haben möchte!
Noch mal herzlichen Dank!!!

Der Vollständigkeitshalber hier meine Umsetzung:

Delphi-Quellcode:

PROCEDURE TForm1.PageControl1OnDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; CONST Rect: TRect; Active: Boolean);


BEGIN
WITH Control.Canvas DO
   BEGIN
     IF Active = true THEN
       BEGIN
         Brush.Color := clred;
         Font.Color := clblack;

         Font.Style := [fsbold];

       END
    ELSE
       BEGIN
         Brush.Color := clLime;
         Font.Color := clblack;

       END;
       TextOut(Rect.Left + 4, Rect.Top + 4,PageControl1.Pages[TabIndex].Caption);

   END;
End;

Dann das ganze dem "OnDrawTab" Ereignis zugeordnet und die Eigenschaft "OwnerDraw" auf "True" gesetzt und alles funzt wie gewünscht!

Gruß
Jürgen