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

Вниз

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

← →
Jumper   (2005-07-08 11:08) [0]

Вообще, нужно сделать так, чтобы не было мигающего курсора в RichEdit"e. ТО бишь сделать наподобие браузера: текст можно форматировать, выделять и копировать, но курсора при этом нет (или не видно)

---

← →
ECM ©   (2005-07-08 12:42) [1]

...чтобы не было мигающего курсора в RichEdit"e

Как вариант, воспользоваться функцией HideCaret:

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
 Header: THandle;
begin
 HideCaret(RichEdit1.Handle);
end;

function TForm1.KOLForm1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
begin
 Result := FALSE;
 if (not AppletTerminated) and Assigned(RichEdit1) then
   HideCaret(RichEdit1.Handle);
end;

---

← →
ECM ©   (2005-07-08 12:44) [2]

sorry ... var Header это "рудимент"...:)

---

← →
Jumper   (2005-07-08 13:07) [3]

О! Работает супер! огромное спасибо, то что надо!!! =))

---

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

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

Наверх

Память: 0.47 MB
Время: 0.05 c