Agreed, it would be nice to have it built-in. In the meantime, here's a workaround:
Code:
alias activewid {
  var %i = 1
  while $window($active,%i).wid {
    var %w = @ $+ $v1, %c = $window(%w).sbcolor
    window -g1 %w
    if !$window(%w).sbcolor { return $mid(%w,2) }
    window -g $+ $calc($findtok(message highlight event,%c,32)) %w
    inc %i
  }
}

/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com