Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.24;
Скачать: CL | DM;

Вниз

Скрыть каретку в richedit НАПРОЧЬ   Найти похожие ветки 

 
=BuckLr= ©   (2008-05-11 10:35) [0]

Не могу скрыть каретку ПОЛНОСТЬЮ в richedit. Пробовал все известные мне способы, но ни один из них не работает так, как в VCL. В лучшем случае, каретка скрывается, но, при нажатии левой мыши, курсор на мгновение появляется. Как убить курсор так, чтобы его вовсе не было видно?


 
Compiler ©   (2008-05-11 22:20) [1]

Имеется в виду мигающий символ "|"?
Может

function TForm1.RichEdit1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
begin
result:=False;
if msg.message=WM_SETFOCUS then
 Result:=True;
end;


 
mdw ©   (2008-05-12 10:51) [2]

Или так:
WM_SETFOCUS:
  begin
   HideCaret(re.Handle);
   Result := true;
  end;


 
=BuckLr= ©   (2008-05-12 14:32) [3]

Это всё хорошо, ребята. Да, работает. Но вот если нажать на тексте мышью, каретка на мгновение появится. Попробуйте. В vcl такого не происходит. Как оно это делает?


 
Compiler ©   (2008-05-12 22:46) [4]

Может тогда еще WM_LBUTTONDOWN, WM_LBUTTONUP запретить?



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

Текущий архив: 2010.01.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
2-1259683856
SergP
2009-12-01 19:10
2010.01.24
This form of method call only allowed for class methods


2-1258886196
DW
2009-11-22 13:36
2010.01.24
Метод Free


8-1202666850
WeReWoLf
2008-02-10 21:07
2010.01.24
Что сделать чтобы DELPHI нарисовала график?


2-1259770583
Леонид Артюхов
2009-12-02 19:16
2010.01.24
Создать в каталоге, 35 подкаталогов с именами лат. алфавита и 0-9


2-1259934788
Matveih1
2009-12-04 16:53
2010.01.24
Как сделать проект автономным