Если уж непременно "одна копия"
Add(MainForm,12086188,385,112)
{
Position=1
link(onCreate,8704945:doEvent1,[])
}
Add(Events,9649812,574,126)
{
Name="MyCoolEvent"
AddHint(-30,-25,78,13,Name)
}
Add(WaitObject,9175818,574,175)
{
link(ObjHandle,9649812:ObjHandle,[])
AddHint(2,40,24,13,Time)
}
Add(Thread,13945738,518,175)
{
Delay=0
link(onExec,9175818:doWait,[])
link(onSyncExec,11144088:doData,[])
}
Add(Hub,8704945,448,126)
{
link(onEvent1,9649812:doCreate,[])
link(onEvent2,14910826:doWork1,[(487,139)])
}
Add(Button,9022058,385,266)
{
Left=100
Top=40
Width=180
Height=40
Align=2
Caption="Просигнализирвать!"
link(onClick,11297637:doEvent1,[])
}
Add(Hub,11297637,448,266)
{
OutCount=4
link(onEvent1,13945738:doStop,[(480,272)(480,188)])
link(onEvent2,9649812:doSet,[(494,279)(494,139)])
link(onEvent3,9649812:doReset,[(501,286)(501,146)])
link(onEvent4,14910826:doWork3,[(487,293)])
}
Add(ListBox,5200896,693,182)
{
Left=920
Top=115
Align=5
}
Add(DoData,11144088,630,182)
{
Data=String(++Событие получено)
link(onEventData,5200896:doAdd,[])
}
Add(HubEx,14910826,483,175)
{
link(onEvent,13945738:doStart,[])
}
------------ Дoбавленo в 08.36:
Netspirit писал(а):
что выдаёт код возврата, а в коде - ничего не выдаёт.Безобразие
------------ Дoбавленo в 09.27:
Между нами девочками говоря...
Сигнал получают ВСЕ копии программки.
А вот ЕСЛИ завести св-во ManualReset (второй аргумент в CreateEvent), то при значении False -- сигнал будет получать только одна копия
И, в вышеприведенной схеме - связь на doReset становится лишней.
nesco, чего скажешь про "завести св-во ManualReset"