| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как выйти из цикла? [D5, Win2k]
Genemy © (2003-08-12 17:29:00)
Есть цикл 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 ... , то ничего не происходит.
Подскажите другой способ или как проверить, что активно мое приложение.
Genemy (2003-08-12 17:51:00) [1]
2 clickmaker: спасибо, все работает.
clickmaker (2003-08-12 17:31:00) [2]
Главная форма в приложении есть? Тогда так
if (Application.MainForm.Handle = GetForegroundWindow)
| |
