Vielleicht versuche ich mal eine Technik auf Basis von TForm, die sich Prinzipien wie interfaces bedienen. Aber die ersten Prototypen werden wir wohl erstmal so (Vererbung) oder als Cut'n Copy versuchen.
Du suchst nach einer Lösung für ein Problem, das du mit der visuellen Vererbung selbst schaffst. Mehr als TrackingTimerTimer() zuzuweisen, machst du über den Objektinspektor nicht. Diese Zuweisung kann auch in einer von TForm abgeleiteten TBaseForm Klasse hardcodiert erledigt werden. Daher noch mal meine Frage: Warum willst du hier partout visuell vererben?
Ich definiere in einer Basis
Unit eine Kaskade abgeleiteter Form-Klassen, von denen ich meine Formulare ableite. Dazu ist nur der Austausch von TForm gegen die gewünscht Klasse notwendig. Visuelle Vererbung wird dazu nicht benötigt. Ab Delphi 2007 ist dieses Vorgehen kein Problem mehr, nur ältere Versionen haben sich daran verschluckt.
Code:
TBaseForm = class(TForm)
TBaseLayoutForm = class(TBaseForm)
TBaseDataForm = class(TBaseLayoutForm)
...
Bis bald...
Thomas