Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

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

 
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)


 
Genemy ©   (2003-08-12 17:51) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.03 c
1-51242
Max_
2003-10-03 15:23
2003.10.16
RichEdit и позиция курсора?


14-51474
Карелин Артем
2003-09-29 13:44
2003.10.16
Ограничения на СОМ-порт.


3-51083
Filat
2003-09-25 21:38
2003.10.16
RxDBLookupCombo - как сделать чтобы он был как DBEdit?


1-51344
Shuhkoman
2003-10-05 19:59
2003.10.16
MainMenu


1-51345
zam
2003-10-03 22:25
2003.10.16
Проблема привязки текста в RichEdit