Timer и Unload

[Space]

При закрытии формы возникает Unload. У меня есть задержка в таймере 15 сек, интервал вызова таймера = 20 сек. Похоже, ещё работает код в таймере и там идёт обращение к контролам на форме. И снова грузится форма! Присвоение Interval=0 или Enabled=0 таймеру в Form_Unload не прекращает выполнение кода в работающем до этого таймере. Как форму выгрузить нормально? Ждать окончания работы таймера долговато. Установить флаг выгрузки формы и проверять в коде таймера коряво. Вот если бы как-то прекратить выполнение кода в таймере вместе с его выгрузкой?...

[BV]

End - радикально.

[GSerg]

Установить флаг выгрузки формы и проверять в коде таймера коряво. Вот если бы как-то прекратить выполнение кода в таймере вместе с его выгрузкой?...

А между тем второе предложение осуществляется именно посредством первого...

[Space]

А если у меня стоит Sleep в таймере? Будет задержка, если обрабатывать через флаги. Не существует никакого способа экстренно прервать выполнение процедуры, кроме END?

[alibek]

Разумеется, существует. Exit Sub, внутри процедуры.

[Twister]

А если у меня стоит Sleep в таймере?

Sleep заставляет поток, вызвавший ее, "уснуть" на некоторое время. Так что вызов END отложится на какое-то время. Я так понял тебе не просто форму выгрузить, а вообще завершить работу? Единственный выход в данном случае (всмысле моментально завершить работу) - вызвать ExitProcess/TerminateProcess в другом потоке...