Witam,
Musze napisac aplikacje ktora w pewnym momencie bedzie musiala wyswietlic okienko dialogowe (inna formatka) z pewnymi opcjami a po wybraniu opcji i nacisnieciu przycisku OK kontynuowala dzialanie procedury z głównej formatki.
Postanowilem do tego celu uzyc komponentu TEvent i choc nigdy wczesniej z niego nie korzystalem to postanowilem ruszyc szare komorki i skorzystac z helpa.
Wiec w glownym okienku zainicjowalem obiekt TEvent:
[code]var
zdarzenie: TEvent;[/code]
następnie w OnCreate tej formatki wrzuciłem linię:
[code]Zdarzenie.create(nil,false,false,'zdarz');[/code]
A w okienku z opcjami w Button1.click dodałem linię:
[code]Zdarzenie.acquire;[/code]
No i na koniec dodałem fragment który w odpowiednim momencie wyswietla okienko z opcjami i czeka na wykonanie zdarzenia (nacisniecie przycisku Button1 na formatce z opcjami:
[code]PytFrm.Show;
zdarzenie.WaitFor(3600000);[/code]
Wszystko jest wg help'a (choc nie wiem czy dobrze wywoluje procedure TEvent.Create) ale właśnie po linii:
[code]Zdarzenie.create(nil,false,false,'zdarz');[/code]
wyskakuje mi błąd "Acces violation".
Co zrobiłem źle? I jak powinienem to zrobić by wszystko działało?
Z góry dziękuję za odpowiedz i pozdrawiam :)
Dawid 'Vade' Kopiec
[email protected]