🚀 go-pugleaf

On Tue, 7 Nov 2000 21:26:23 +1300, "Ian Boag"
<ianboag@partslink.co.nz> wrote:


>First I make a TEvent (MyEvent) and Create it.
>
>Form1.Create is
>MyEvent.Create(nil,false,false,'');
>
>Button1Click is then
>  MyEvent.ResetEvent   (turns it "off")
You did reset the event, before you started to wait for it.
For the Method "waitfor" the event will never be signaled.


>  MyEvent.WaitFor(20000); (wait 20 seconds)
>  write some sort of message
>
>Button2Click is just
>  MyEvent.Set
>


try this in Button 1 Click:

case MyEvent.WaitFor(20000) of
    wrSignaled:  
       Begin    
         MyEvent.ResetEvent;Edit1.text:='Signaled';
       End;
  
     wrTimeout:Edit1.Text:='timeout';
  end;



Olaf