Текущий архив: 2003.07.07;
Скачать: 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 вся ветка
Текущий архив: 2003.07.07;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.007 c
