Скачать: CL | DM;

Невидимый текстовый курсор в 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?

---

← →
ghg ©   (2003-06-17 10:55) [6]

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;


---

← →
mao ©   (2003-06-24 15:59) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c