Вообще это не в проге зашито, а в работе Windows с консольным окном.
Цитата
Если консоль зависает или ставится на паузу при клике мыши, это происходит из-за включенного режима QuickEdit (Быстрое редактирование) в Windows. Когда вы кликаете внутри окна, терминал переходит в режим выделения текста, блокируя выполнение программы.
Было предположение, что есть какой-нибудь ключ компилятора для включения этой функции, но ничего не нашел.
Добавлено (15.08.2026, 19:46)
---------------------------------------------
Google ИИ выдал мне с пятой попытки примерно такой код:Код
#include once "windows.bi"
#include once "crt.bi" ' Подключаем CRT для прямого вывода без буферизации FreeBASIC
' Получаем дескриптор ввода консоли
Dim As HANDLE hInput = GetStdHandle(STD_INPUT_HANDLE)
Dim As DWORD cmode
' Полностью очищаем режим ввода и принудительно выставляем флаги QuickEdit
GetConsoleMode(hInput, @cmode)
cmode = ENABLE_EXTENDED_FLAGS Or ENABLE_QUICK_EDIT_MODE
SetConsoleMode(hInput, cmode)
Print "=== QuickEdit Тест на FreeBASIC ==="
Print "Кликните ЛЕВОЙ кнопкой мыши прямо по тексту ниже."
Print "Программа остановится (в заголовке окна появится 'Выбрать')."
Print "Нажмите ENTER для продолжения работы."
Print "-----------------------------------------------------------"
Do
Printf(".") ' Прямой вывод через printf гарантирует, что Windows поймает блокировку
Sleep(30)
Loop
Он работает. Причем работает даже если режим консоли не переключать, а использовать только printf: Код
#include once "windows.bi"
#include once "crt.bi" ' Подключаем CRT для прямого вывода без буферизации FreeBASIC
Print "Кликните ЛЕВОЙ кнопкой мыши прямо по тексту ниже."
Print "Программа остановится (в заголовке окна появится 'Выбрать')."
Print "Нажмите ENTER для продолжения работы."
Do
Printf(".") ' Прямой вывод через printf гарантирует, что Windows поймает блокировку
Sleep(30)
Loop
Цитата
>работает даже без переключения режима консоли, достаточно Printf(".")
Вы абсолютно правы! Ваше наблюдение очень точное. На самом деле, в современных версиях Windows режим QuickEdit по умолчанию включен для всех окон командной строки. Поэтому, как только мы заменили встроенный Print из FreeBASIC на стандартный printf из библиотеки Си, всё сразу заработало «из коробки».
