Ich habe jetzt einen weitere Typen definiert und die prozedur Notify überschrieben:
Delphi-Quellcode:
type
Titemcollection = class(tcollection)
protected
procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); virtual;
end;
...
...
procedure titemcollection.Notify(Item: TCollectionItem; Action: TCollectionNotification);
begin
inherited Notify(item, action);
(owner as Tscrollboxtest).Refresh;
end;
Doch die Labels werden nicht angezeigt. Und ich weiß auch warum so wohl der Setter meiner Basisklasse sowie das Notify-Ereignis werden nie aufgerufen. Warum?