Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Убрать курсор, когда TRichEdit.ReadOnly = True 
:(
    Опции темы
Delphist
Дата 16.10.2007, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3



Как убрать курсор редактирования(вертикальная палка) из TRichEdit, когда TRichEdit.ReadOnly = True


--------------------
ProcessInfo 1-ая моя прога до сих пор использую
Delphi2006
Мы не выбираем времена, мы можем только решить как жить в те времена, которые выбрали нас.
PM MAIL ICQ   Вверх
pseud
Дата 16.10.2007, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40



TRichEdit.Enable := False;


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Alix
Дата 16.10.2007, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23



Код

HideCaret(RichEdit1.Handle)

только после нажатия мыши она снова появится, так что нужно поставить это и в событие onMouseUp


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
Delphist
Дата 16.10.2007, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3



Цитата(Alix @  16.10.2007,  16:56 Найти цитируемый пост)
только после нажатия мыши она снова появится, так что нужно поставить это и в событие onMouseUp 

А еще как можно. Не ужели Borland'цы не продумали данный момент.

Добавлено через 1 минуту и 27 секунд
Цитата(pseud @  16.10.2007,  16:43 Найти цитируемый пост)
TRichEdit.Enable := False; 

Color делается серым- не подходит.


--------------------
ProcessInfo 1-ая моя прога до сих пор использую
Delphi2006
Мы не выбираем времена, мы можем только решить как жить в те времена, которые выбрали нас.
PM MAIL ICQ   Вверх
Alix
Дата 16.10.2007, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23



Цитата(Delphist @  16.10.2007,  17:08 Найти цитируемый пост)
А еще как можно. Не ужели Borland'цы не продумали данный момент

тогда уж микрософтовцы. Есть еще функция DestroyCaret, про которую в msdn сказано:
Код
The window should destroy the caret before losing the keyboard focus or becoming inactive. 

Т.е. именна она "прячет" каретку, если окно richedit не активно. Но проблема в том, что эта функция может вызываться только окном-владельцем, т.е. снаружи richedit ее не вызвать.



--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
VICTAR
Дата 16.10.2007, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80



Цитата(Delphist @  16.10.2007,  16:08 Найти цитируемый пост)
Color делается серым- не подходит. 

Если выключить в дизайн-тайм, то не станет серым
PM MAIL   Вверх
Delphist
Дата 16.10.2007, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3



Цитата(VICTAR @  16.10.2007,  17:41 Найти цитируемый пост)
Если выключить в дизайн-тайм, то не станет серым 

Да, но, если затем делать переключения Enabled := True; Enabled := False, то опять превратиться в серый цвет.


--------------------
ProcessInfo 1-ая моя прога до сих пор использую
Delphi2006
Мы не выбираем времена, мы можем только решить как жить в те времена, которые выбрали нас.
PM MAIL ICQ   Вверх
Rennigth
Дата 16.10.2007, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76



Delphist, На OnEnter повесь примерно такой код:
Код

  if RichEdit.ReadOnly and Assigned(RichEdit.Parent) then
    Windows.SetFocus(RichEdit.Parent.Handle);



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
kuzduk
Дата 14.3.2020, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 21.9.2011

Репутация: 2
Всего: 2



Код

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
HideCaret(RichEdit1.Handle);
end;


Это сообщение отредактировал(а) kuzduk - 14.3.2020, 23:44
PM MAIL WWW   Вверх
b8195108
Дата 28.4.2020, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 17.7.2011

Репутация: 2
Всего: 2



Цитата(kuzduk @ 14.3.2020,  23:44)
Код

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
HideCaret(RichEdit1.Handle);
end;

13 лет ждал, чтобы повторить ответ другого участника?  smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1464 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.