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:

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?

[uligerhardt]

Zitat von Andidreas:

ich vermute mal das es daran liegt das er nie ins OnDrawTab ereignis kommt,

Na, dann setz doch mal nen Breakpoint in die Routine. Dann weißt du, ob.

[Andidreas]

hab ich probiert... er kommt nicht ins ondrawtab ereignis, aber warum?

[himitsu]

Erstmal der Klassiker

Ist deine OnDrawTab-Methode auch dem PageControl zugewiesen?

[uligerhardt]

Zitat von Andidreas:

hab ich probiert... er kommt nicht ins ondrawtab ereignis, aber warum?

Hab grad mal die DP-Referenz () für ondrawtab bemüht - Ergebnis: TCustomTabControl.OwnerDraw Property

[himitsu]

Wollte dieses auch grad noch nacheditieren.

Bin allerdings grad mal auf die Idee gekommen im OI zu schauen, ob es da soeine Eigenschaft gibt, da ich sie schon von anderen Komponenten her kenne

[Andidreas]

danke für den tipp... jetzt funzt es... =)