Просмотр исходного текста страницы 100-процентная загрузка процессора

Если в обработчике события OnUpdate компонента [[TAction]] сначала идет присваивание свойства Enabled = True, а затем Enabled = False, то можем получить 100% загрузки процессора при отображении такой формы на экране. 

Например, рассмотрим такой код:

 option explicit
 sub actNewOnUpdate(ByVal Sender)
 '*** Данный код необходим для вызова встроенного обработчика ***
 '*** В случае его удаления возможно нарушение работы системы ***
   call   Inherited(Sender, "OnUpdate", Array(Sender))
 '*** конец кода поддержки встроенного обработчика            ***
 
   Sender.Enabled = not Sender.Owner.FindComponent("usrg_gdcEmployee").IsEmpty
 end sub

сначала вызываем наследованный обработчик, который, например, установит Enabled = True, а потом переприсваиваем Enabled в False. Естественно получаем 100% загрузку процессора.

В данном случае, правильно писать так:

 option explicit
 sub actNewOnUpdate(ByVal Sender)
   if Sender.Owner.FindComponent("usrg_gdcEmployee").IsEmpty then
     Sender.Enabled = False
   else
     '*** Данный код необходим для вызова встроенного обработчика ***
     '*** В случае его удаления возможно нарушение работы системы ***
       call   Inherited(Sender, "OnUpdate", Array(Sender))
     '*** конец кода поддержки встроенного обработчика            ***
   end if
 end sub

[[Category:Работа над ошибками]]