Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2015-01-15 15:27:12 ЛС | профиль | цитата
Короче, технология коллеги Netspirit предполагает создание (CreateEvent) события в перехвате установки самого последнего св-ва.
Теоретически, можно не делать SetEvent, но делать SetManualReset (если очень хочется сделать ManualReset именно последним св-вом)
#pas
procedure THIEvents.SetManualReset(Value: boolean);
begin
if FEvent <> 0 then CloseHandle(FEvent);
FEvent := CreateEvent(nil, Value, False, @_prop_Name);
end;
Тут, как говорится: Кому нравится поп, а кому - попадья
карма: 9

0