Невидимый текстовый курсор в RichEdit

← →
mao © (2003-06-17 08:26) [0]

Кто-нибудь знает, как сделать невидимым текстовый курсор в RichEdit? Но нужно, чтобы он там был, т.к. хотелось бы чтобы тестовое окно имело фокус, в нем действовало выделение текста и т.д. Нужно сделать из этого окна просто отображающее текст окно.

← →
Anatoly Podgoretsky © (2003-06-17 09:17) [1]

Поставь режим ReadOnly и не обращай внимания на курсор.

← →
Song © (2003-06-17 09:25) [2]

HideCaret()

← →
ghg © (2003-06-17 09:46) [3]

hidecaret не поможет
надо hidedestroy или destroyhide не помню
и при каждой передаче фокуса этому контролу заново делать destroy

у меня все работает

← →
ghg © (2003-06-17 09:47) [4]

тьфу черт
не hide а caretdestroy

← →
mao © (2003-06-17 10:29) [5]

А как использовать этот caretdestroy?

2mao © (17.06.03 10:29)
Вот так. Тока вместо TEdit, соответственно RichEdit. Должно работать.

Tedit_focus = class (Tedit) public procedure Focus(var a : TWMSetFocus); message wm_SETFOCUS; end; {-------------------------------------------------------------------------------------------------------} procedure Tedit_focus.Focus(var a : TWMSetFocus); begin inherited; DestroyCaret; a.Result:=0; end;

ghg © (17.06.03 10:55)
Когда поросто делаю DestroyCaret на каком-нибудь событии RichEdit, то курсор пропадает.
Но не получается вызвать Tedit_focus.Focus(). :( Что нужно передать ей в качестве параметра?

Невидимый текстовый курсор в RichEdit Найти похожие ветки