Как убрать курсор в RichEdit

@PEAPLE · Регистрация: 28.05.2013

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

Здравствуйте Форумчани. Возможно полностью убрать курсор в RichEdit? Сделал попытки. Получается. Только при установлении в инспекторе объектов ReadOnly в позицию true текст я не могу изменять, но курсор мигает по прежнему.
Этот код убирает курсор при нажатии клавиши Enter но только при позиции ReadOnly=false и при этом возможно редактировать текст. Пытаюсь сделать так чтобы курсора в поле RichEdit вообще не было и не было возможности редактировать текст. Конечно возможно поставить Еnebled=false и все замрет и вертикальный ползунок также, но надо чтобы Еnebled=true. Возможно есть способ перевода фокуса на другой компонент размещенный на форме? Если не трудно подскажите. Заранее благодарен.

C++
1
2
3
4
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
  HideCaret(RichEdit1->Handle);
}

@volvo · 28.11.2013, 19:09

Я, как всегда, с решением через класс-перехватчик:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// В H-файле, перед классом формы:
namespace RE_NoCaret
{
    class TRichEdit : public Comctrls::TRichEdit
    {
    protected:
        virtual void __fastcall WndProc(/*Winapi::*/Messages::TMessage &Message)
        {
            if ((Message.Msg == WM_SETFOCUS) && ReadOnly) return; // <---
            Comctrls::TRichEdit::WndProc(Message);
        }
    public:
        __fastcall virtual TRichEdit(Classes::TComponent* AOwner)
            : Comctrls::TRichEdit(AOwner)
        {
        }
    };
}
#define TRichEdit RE_NoCaret::TRichEdit
 
// Дальше - твоя форма, без изменений
class TForm1 : public TForm

@PEAPLE · 29.11.2013, 12:26 **[ТС]**

Спасибо большое UI. Не подскажите, где можно подробно ознакомиться с данной темой. Заранее спасибо.

@Staut · 29.11.2013, 13:22

- UI, Вы сторонник радикальных решений! А почему не так, в обработчике OnFormActivate Формы:

C++
1
2
3
4
  // убрать фокус со всех Компонентов (при загрузке приложения).
  ActiveControl = NULL;
  // или так:
  DefocusControl( RichEdit1, false);    //(TWinControl*, bool)

, как Вы когда-то советовали мне ? ... Так ведь проще ?

@volvo · 29.11.2013, 13:34

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

где можно подробно ознакомиться с данной темой

С какой темой? ООП и наследование? В любой книге по С++. Иерархия классов VCL? В любой книге по Дельфи (или справка, хотя бы и online версия). Сам способ добавления промежуточного класса с измененными свойствами/методами я вычитал у Марко Канту в книге Delphi Handbook, уже не помню о какой версии речь тогда шла, то ли о D7, то ли о BDS 2006, ну, а перенести это на Билдер - дело техники...

Добавлено через 2 минуты

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

А почему не так, в обработчике OnFormActivate Формы:

И чего? Ну, при активации формы фукус уйдет на форму, дальше что? Пользователь ткнул мышью в RichEdit - оп-па!!! Курсор-то - вот он, мигает, зараза

@Staut · 29.11.2013, 14:38

- А, разобрался! Я думал, что и Ваш UI способ убирает курсор лишь при включении приложения.
По крайней мере так он работал в моем пробном приложении. Я не заметил, завязку на свойство ReadOnly = true;
Установил и все заработало полностью! Прошу прощения, курсора действительно НЕТ НИКОГДА. Правда и
вводить в РичЕдит больше НЕЛЬЗЯ. Можно только выводить информацию.

Добавлено через 5 минут
- Да, но ведь TC так и нужно!

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@PEAPLE 6 / 6 / 6 Регистрация: 28.05.2013 Сообщений: 115
	29.11.2013, 12:26 [ТС]
	Спасибо большое UI. Не подскажите, где можно подробно ознакомиться с данной темой. Заранее спасибо. 0

@Staut 98 / 81 / 14 Регистрация: 26.07.2013 Сообщений: 594
	29.11.2013, 14:38
	- А, разобрался! Я думал, что и Ваш UI способ убирает курсор лишь при включении приложения. По крайней мере так он работал в моем пробном приложении. Я не заметил, завязку на свойство ReadOnly = true; Установил и все заработало полностью! Прошу прощения, курсора действительно НЕТ НИКОГДА. Правда и вводить в РичЕдит больше НЕЛЬЗЯ. Можно только выводить информацию. Добавлено через 5 минут - Да, но ведь TC так и нужно! 0

Как убрать курсор в RichEdit

Решение