Большинство хороших компонентов имеют защищенный виртуальный или динамический метод, который не вызывает ничего, кроме вызова соответствующего события. Таким образом, потомки могут вставлять свой собственный связанный с событием код, оставляя фактическое событие доступным для конечного пользователя компонента, когда он помещается в форму.
В случае TTimer
метод, вызывающий событие OnTimer
, имеет вид Timer
. Создайте потомка TTimer
и переопределите этот метод. Проверьте, сколько раз вы уже вызывали функцию, и, если вы все еще ниже предела, вызовите inherited
.