Как отключить указатель мыши в консольном приложении (Pascal, модуль CRT)

@AlbertMihJew · Регистрация: 05.02.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте. Есть ли возможность отключить указатель мыши в консольном приложении в PascalABC.NET, проблема в том, что когда пользователь нажимает мышкой на активное консольное окно, программа останавливается.

P.S. : Мне нужно не отключить курсор(каретку) а именно сделать так, чтобы нажатия на окно с программой указателем мыши не давало никакого результата(игнорировалось).

@Puporev · 06.02.2020, 17:05

Pascal
1
2
3
4
5
uses crt;
begin
  hidecursor;
  write('1221313132')
end.

@AlbertMihJew · 06.02.2020, 17:15 **[ТС]**

Puporev, Этот код просто отключает отображение каретки, но никак не отключает действия указателя мыши в окне.

@Puporev · 06.02.2020, 19:14

Сообщение от AlbertMihJew

но никак не отключает действия указателя мыши в окне.

А какие действия у Вас происходят в консоли при клике мышью?

@AlbertMihJew · 06.02.2020, 19:24 **[ТС]**

Puporev, Символы пропадают, а мышь выделяет то знакоместо на которое кликаешь. ОС, если что, Windows 10

@Puporev · 06.02.2020, 19:27

У меня Win 7. ничего подобного нет.

@AlbertMihJew · 06.02.2020, 19:37 **[ТС]**

Puporev, Вот, как-то так.

@Sun Serega · 06.02.2020, 21:57

Это не клик мыши. Это выделение области мышкой. Оно обычно используется для копирования текста.

На время - вывод замораживается. Но, я так понимаю, очистка экрана всё равно работает.

Решения:
---
У консоли всё можно настраивать.

Но настройки, разумеется, локальны для вашего компа. Да и ИМО консоль в вин10 офигенна. Я сам пару мелочей менял и в целом наслаждался.

---

Консоль это вам не нормальная графика, где можно заморозить всё (как LockDrawing в GraphABC), а затем очищать весь экран, рисовать что хотите и перерисовывать всё вместе.

То есть нет, двойную буферизацию можно свелосипедить в консоли. А ещё есть проекты 3D графики в консольке. А вообще ещё есть люди пишущие что то огромное на бреинфаке. Только это всё страдание саморазвитием.

Но если вернуться на землю - полная очистка консоли и затем вывод всего текста заново - это, как ни крути, мигание.

Если вы хотите именно простой вывод текста с функционалом консоли, но так чтоб можно было затирать предыдущие строки и рисовать что то поверх них - можно не очищать весь экран, а выводить текст именно в нужную строку (закрашивая всё остальное на строчке пробелами).

Ну и, кстати, использование crt уже более десяти лет не имеет смысла. Правильно использовать класс System.Console, потому что crt это огрызок этого класса.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure OtpOnLine(otp: string; line: integer);
begin
  // устанавливаем курсор в начало строчки
  System.Console.SetCursorPosition(0,line);
  // и выводим строку, добавляя справа достаточно пробелов, чтоб заполнить остаток строчки
  Write(otp.PadRight(System.Console.BufferWidth));
end;
 
begin
  System.Console.CursorVisible := false; // отключение курсора
  
  var i := 0;
  while true do
  begin
    OtpOnLine($'текст, число = {i}, другой текст', 0);
    Sleep(500);
    i += 1;
  end;
  
end.

В данном случае миганий не будет, даже при переходе от i=9 к i=10 (тогда вторая часть текста сдвигается), потому что вывод всей строчки происходит за одну операцию.

Ну, разумеется, не обязательно делать это с целой строчкой. Это только пример. Если вы знаете максимальную длину текста - можно ограничить кол-во затирающих пробелов.

@AlbertMihJew · 07.02.2020, 00:27 **[ТС]**

Sun Serega, спасибо, я нашёл эту настройку.

@AlbertMihJew · 07.02.2020, 15:21 **[ТС]**

А где найти справку по этому классу?

@Sun Serega · 07.02.2020, 15:31

Всё из System - это .Net . Справка .Net находится на msdn. Её легко открыть гуглом, написав имя класса, как System.Console. Или если нужно отдельное свойство/метод - System.Console.CursorVisible.
https://docs.microsoft.com/en-... mework-4.8

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@AlbertMihJew 1 / 1 / 0 Регистрация: 05.02.2020 Сообщений: 13

	Как отключить указатель мыши в консольном приложении (Pascal, модуль CRT) 06.02.2020, 16:59. Показов 3135. Ответов 10 Метки crt, pascal, pascal abc, pascal abc net (Все метки) Здравствуйте. Есть ли возможность отключить указатель мыши в консольном приложении в PascalABC.NET, проблема в том, что когда пользователь нажимает мышкой на активное консольное окно, программа останавливается. P.S. : Мне нужно не отключить курсор(каретку) а именно сделать так, чтобы нажатия на окно с программой указателем мыши не давало никакого результата(игнорировалось). 0

@AlbertMihJew 1 / 1 / 0 Регистрация: 05.02.2020 Сообщений: 13
	06.02.2020, 17:15 [ТС]
	Puporev, Этот код просто отключает отображение каретки, но никак не отключает действия указателя мыши в окне. 0

@AlbertMihJew 1 / 1 / 0 Регистрация: 05.02.2020 Сообщений: 13
	06.02.2020, 19:24 [ТС]
	Puporev, Символы пропадают, а мышь выделяет то знакоместо на которое кликаешь. ОС, если что, Windows 10 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.02.2020, 19:27
	У меня Win 7. ничего подобного нет. 0

@AlbertMihJew 1 / 1 / 0 Регистрация: 05.02.2020 Сообщений: 13
	06.02.2020, 19:37 [ТС]
	Puporev, Вот, как-то так. Миниатюры 0

@AlbertMihJew 1 / 1 / 0 Регистрация: 05.02.2020 Сообщений: 13
	07.02.2020, 00:27 [ТС]
	Sun Serega, спасибо, я нашёл эту настройку. 0

@AlbertMihJew 1 / 1 / 0 Регистрация: 05.02.2020 Сообщений: 13
	07.02.2020, 15:21 [ТС]
	А где найти справку по этому классу? 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	07.02.2020, 15:31
	Всё из System - это .Net . Справка .Net находится на msdn. Её легко открыть гуглом, написав имя класса, как `System.Console`. Или если нужно отдельное свойство/метод - `System.Console.CursorVisible`. https://docs.microsoft.com/en-... mework-4.8 1

Как отключить указатель мыши в консольном приложении (Pascal, модуль CRT)

Решение