Как выйти из цикла?

← →
Genemy © (2003-08-12 17:29) [0]

Есть цикл for и нужно выйти из него при нажатии на ESC. Я проверяю if ((Word(GetAsyncKeyState(27)) and $8000)<>0)and Application.Active then ... ,но Application.Active = true даже если я в другом приложении и при нажатии ESC цикл прекращается, a если if (Word(GetKeyState(27)) and $8000)<>0 then ... , то ничего не происходит.
Подскажите другой способ или как проверить, что активно мое приложение.

← →
clickmaker © (2003-08-12 17:31) [1]

Главная форма в приложении есть? Тогда так

if (Application.MainForm.Handle = GetForegroundWindow)

2 clickmaker: спасибо, все работает.

Как выйти из цикла? Найти похожие ветки