Guten Tag

Ich habe eine verschönerte Komponente TMyEdit = class(TEdit) geschrieben. Diese prüft beim Verlassen in ihrem Ereignis OnExit automatisch, ob der Eingabetext eine korrekte Fließkommazahl darstellt, und färbt widrigenfalls den Eingabetext rot. Von diesem TMyEdit habe ich mehrere Instanzen in meinem Formular. Hier möchte ich im OnExit einer jeden Instanz eine gültige Eingabe automatisch in eine zugehörige Zahlen-Variable schreiben, und für jede ungültige Eingabe eine individuelle Fehlermeldung anzeigen. Jeweils einzeln funktioniert das. Wenn ich den OnExits im Formular aber Prozeduren zuweise, verschwindet leider das ursprünglich in TMyEdit implementierte Verhalten. Da wird wohl das ursprüngliche OnExit durch das neue OnExit nicht ergänzt, sondern ersetzt.

Wie kann ich erreichen, dass beides ausgeführt wird, zuerst das Umfärben (das für jede Instanz das gleiche Verhalten zeigen soll und deshalb am besten in der Komponente liegt), und dann die Variablenzuweisung (die für jede Instanz verschieden ist und deshalb nur im Formular liegen kann)?

Vielen Dank für Tipps.

Das existierende OnExit merken und dann an der richtigen Stelle zusätzlich aufrufen.

Da es sich ja um eine abgeleitete Komponente handelt hast Du Zugriff auf die als protected deklarierten Methoden.
Also kannst Du DoExit überschreiben. Aber dann nicht vergessen via inherited die geerbte Methode aufzurufen.

jasocul hat folgendes geschrieben :

Das existierende OnExit merken und dann an der richtigen Stelle zusätzlich aufrufen.

Das sollte man wirklich nur im äußersten Notfall machen. Wenn eine Komponente sauber entworfen ist, geht es normalerweise auch sauber, meistens so wie es Sinspin für diesen Fall beschrieben hat.

Sinspin und jaenicke haben natürlich Recht.
Wenn du schon eine eigene Komponente erstellt hast, dann solltest du meinen Vorschlag ignorieren.

Vielen Dank. Das DoExit ist die Lösung.