Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.48 MB
Время: 0.012 c
1-20140
off
2003-06-25 08:31
2003.07.07
Перетаскиваем форму.


1-20109
Goga
2003-06-24 10:41
2003.07.07
Подскажите, как реализовать обратный вызов от MIDAS сервера


14-20199
Тфьу
2003-06-21 17:11
2003.07.07
Кривой русский язык в Edit


1-20151
picaroon
2003-06-25 07:18
2003.07.07
Передача переменных из формы в форму.


14-20270
mikhasenko.anton
2003-06-20 12:05
2003.07.07
интерфейс Delph 5