Я кодирую пользовательский buttonn, полученный из tExCustomControl, который, в свою очередь, является производным от tCustomControl. Компонент tExCustomControl, заботится о рисовании и имеет внутреннюю метку tLabel для отображения надписей (моя опция для tLabel заключалась в том, чтобы упростить основу для символа ускорителя). В tExCustomControl я обрабатываю событие «keyUp» следующим образом:

      if Char (Key) = AcceleratorChar then
          if AltKeyIsDown then
              if Assigned (OnClick) then
                 OnClick (Self);

Это прекрасно работает, за исключением одного: удерживая нажатой клавишу Alt и после нажатия и отпускания клавиши акселератора, я получаю звук «неправильный вход».

Почему этот звук играет? Как я могу избежать этого?

Заранее спасибо.