Можно выйти?

Сакраментальный школьный вопрос Иногда нужно прервать выполнение цикла до его окончания.

Есть несколько способов досрочного завершения циклов. Например, для этого в циклы whileи repeatможно добавить флаг (переменную логиче­ского типа), который будет сигнализировать об окончании работы цикла.

Ещё легче превратить форму в светофор - чтобы она переливалась всеми цветами радуги.

Достаточно немного изменить процедуру, обрабатываю­щую срабатывание таймера:

Заголовок активной формы имеет яркий цвет, неактивной - блеклый. Если попеременно окрашивать его в эти цвета, то форма будет мигать, как мая­чок в ночи. Сделать это очень просто, воспользовавшись услугами функ­ции WindowsAPIFlashWindow(HWND: hWnd, bInvert : BOOLEAN).

Если при её вызове флаг bInvertустановлен, то форма будет мигать, если сброшен - вернётся в то состояние, в котором она пребывала до начала подмигивания.

Можно поступить и иначе - заставить форму беспрерывно «ёрзать» по экрану. Сделать это проще простого. На «свежей» форме установите тай­мер, задайте Interval200-400 мс и напишите код для обработки запуска таймера:

Наверное, вы слышали (и только!) о таком розыгрыше советских времён. К металлическому рублю припаивают гвоздь, а затем всю эту конструкцию вбивают в пол и скрытно ждут наивного искателя сокровищ. Рано или поздно он появляется. Ничего не подозревающий «счастливчик» пытается поднять ценную находку, да не тут то было - рубль невозможно ни сдви­нуть, ни сковырнуть. Остаётся только с досадой смотреть на него...