SYSDBA в 09:08, 15 января 2009

2009-01-15T09:08:21Z

SYSDBA в 13:30, 28 февраля 2007

2007-02-28T13:30:05Z

Новая страница

Если в обработчике события 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

@@ Строка 1: / Строка 1: @@
-Если в обработчике события OnUpdate компонента TAction сначала идет присваивание свойства Enabled = True, а затем Enabled = False, то можем получить 100% загрузки процессора при отображении такой формы на экране. Например, рассмотрим такой код:
+Например, рассмотрим такой код:
   option explicit
@@ Строка 27: / Строка 28: @@
     end if
   end sub

100-процентная загрузка процессора - История изменений

SYSDBA в 09:08, 15 января 2009

SYSDBA в 13:30, 28 февраля 2007