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