Drawtab will nicht

[Mattze]

Hallo baumina,

soweit ich weiß, ist alles richtig. Und trotzdem...
Hier der relevante Ausschnitt aus der dfm:

Delphi-Quellcode:

  object PageControl1: TPageControl
    Left = 8
    Top = 16
    Width = 873
    Height = 513
    ActivePage = TabSheet3
    OwnerDraw = True
    TabOrder = 0
    OnDrawTab = PageControl1DrawTab
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
    end
  end

Gruß
Mattze