OnDrawTab von TPageControl wird nicht aufgerufen

**Andidreas**

aloha

ich habe ein programm in dem ich über ShowModal eine weitere form anzeigen lassen kann...
in dieser form habe ich ein TPageControl... im OnDrawTab ereignis würde ich gern die farben der tab reiter von grau in weiß ändern hierfür verwende ich folgenden source:

zusammenfalten · markieren

Delphi-Quellcode:

			  With TPageControl(Control).Canvas Do

  Begin

    Brush.Color := clWhite;

    FillRect(Rect);

    TabText := TPageControl(Control).Pages[TabIndex].Caption;

    With Control.Canvas Do

    Begin

      APoint.x := (Rect.Right - Rect.Left) Div 2 - TextWidth(TabText) Div 2;

      APoint.y := (Rect.Bottom - Rect.Top) Div 2 - TextHeight(TabText) Div 2;

      TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, TabText);

    End;

  End;

wenn ich die form dann im programm anzeigen lasse sind die tab reiter immer noch grau...
ich vermute mal das es daran liegt das er nie ins OnDrawTab ereignis kommt, aber ich weiß nicht warum...
hat hier jemand eine idee woran das liegen könnte?

OnDrawTab von TPageControl wird nicht aufgerufen

OnDrawTab von TPageControl wird nicht aufgerufen

Forumregeln