Event wird nicht gefeuert- eigene Komponente

[Optiplex]

Mir ist nur noch aufgefallen das du das Property Caption unnötigerweise doppelt setzt, wenn du schon CMTextChanged auswertest dann brauchst du auch nicht noch mal eine procedure setcaption da CMTextChance direkt das Caption neu zeichnen kann.

procedure CMTextChanged( var msg:TMessage);
begin
interited
repaint
end;

willst du den Namen der Komponente im Editor ausgeben willst dann im Paint Ereignis mit Componentstate auswerten.

Dieter