[an error occurred while processing this directive]
|
Создаем процедуру MyAppIdle.
Событие OnClick через переменную передается в MyAppIdle.
Там крутим цикл, а условие проверяем не в while-do, а простым if .
При этом никаких нагузок на процессор не будет!!! И прекратить что-то, что было в while-do можно будет другим событием OnClick.
Почему я против Application->ProcessMessages();? Да потому, что это API процедуры, которые вставляем в прямой исполняемый код, а это черевато сбоями. Я, в прошлом, нарывался (в Delphi 3) на завешивание Windows подобными операциями.
E-mail: info@telesys.ru