Hintergrundfarbe des AKTIVEB Tabsheets ändern

[Bob68]

Hallo kannst du vieleicht hiermit was anfangen.

Delphi-Quellcode:

PROCEDURE TForm1.TabControl1DrawTab(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,
      TabControl1.Tabs[TabIndex]);

   END;
 End;

Gruß Bob68