Komponente will sich nicht neu zeichnen

[APP]

Hallo,

Delphi-Quellcode:

PROCEDURE TControlTabs.SetItems(CONST Value: TStrings);
BEGIN
   FItems.Assign(Value);
   SetLength(FButtons, FItems.Count);
   INHERITED Paint;  // <-- JETZT FUNKTS LEIDER NICHT
   Invalidate;
END;

[EDIT] SORRY, zu Früh gefreut [/EDIT]