| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Курсор в RichEdit

Jumper ©   (2005-07-08 11:08:00) 

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

---

Jumper   (2005-07-08 13:07:00) [1]

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

---

ECM   (2005-07-08 12:44:00) [2]

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

---

ECM   (2005-07-08 12:42:00) [3]

...чтобы не было мигающего курсора в 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;

---

Наверх