Wie private Setter-Methode überschreiben?

[BlueStarHH]

Zitat von negaH:

Das funktioniert aber dann nur wenn im Source explizit der Cursor deiner Klasse angesprochen wird. So bald zb. die VCL den Cursor von deinen Vorfahren anspricht bekommst du nichts mehr davon mit. Probiere mal TWinControl(MeineKlassenInstance).Cursor := crXYZ aus.

Stimmt, ich habs ausprobiert, so bekommt meine Klasse nichts mehr vom Cursortausch mit. Also wie von Dir beschrieben die Nachrichten abfangen. Nur was macht man, wenn in anderen Fällen, in denen es nicht um den Cursor geht, keine Nachrichten gibt, die man abfangen kann? Ist "Patchen der RTTI der neuen Klasse" das das einzige? Und wie würde das geht das? Mir ist klar, dass das nicht die feine Art ist. Aber besser so, als gar nicht.