Ответ: Обработка клавиатуры.
Не много по эксперементировав с кодом мне все таки удалось обойти этот 'BUG'
procedure Info; begin begin // Text Repaint; while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(50); end;Delay(250); begin // Text Repaint; while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(50); end;Delay(250); begin // Text Repaint; while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(50); beginDelay(250); end;
Добавление лишних в procedure не всегда есть хорошо иногда МР при компиляции сильно ругается.
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|