Вопрос по TMemo:

mar · Отправлено: **10:15, 17-03-2003** | #2

указать другой курсор

, или никакой, но это по сути тот же false

Профиль · Отправлено: **12:02, 17-03-2003** | #3

А как задать другой ТЕСКСТОВЫЙ курсор?
(При enabled=false компонента не активна, не вызываютса её
обработчики. Есть и визуальные отличия - приглушенные цвета).

shurikan · Отправлено: **16:01, 17-03-2003** | #4

ilusha sh
Можно уточнить для чего будет использоваться такое мемо? Просто для отображения какой либо информации или его содержимое необходимо редактировать, а курсор нужно отключить, что бы не отсвечивал?

shurikan · Отправлено: **00:52, 18-03-2003** | #5

ilusha sh
Допустим этот компонент описан в форме как Memo: TMemo. Тогда, чтобы его нельзя было редактировать, присваиваешь свойству ReadOnly значение true, а для скрытия курсора - свойству Cursor соответственно crNone.
Примерно так:

Код:


Memo.ReadOnly := true;
Memo.Cursor := crNone;

Профиль · Отправлено: **01:22, 18-03-2003** | #6

Нет, редактировать мемо не нужно (хотя мне интуитивно кажется,
что решение от этого не зависит). Важно отсутствие
ТЕКСТОВОГО курсора (а не отсутствие стрелочки/ладошки/часиков Windows).

Добавлено:

т.е. я хочу избавиться от ВЕРТИКАЛЬНОЙ МИГАЮЩЕЙ ПАЛОЧКИ

shurikan · Отправлено: **08:05, 18-03-2003** | #7

ilusha sh
Понял!
Тогда по некотором размышлении на ум приходит такое решение, не знаю насколько подойдёт. Во первых
Memo.TabStop := false;
это чтобы клавишей <TAB> в него не попасть, хотя следующий пункт должен сделать это неактуальным:
на событие OnEnter при проектировании вешаешь обработчик, который сразу переустанавливает фокус на другой контрол...
По-моему должно сработать, только я не уверен, можно ли будет из этого мемо текст в клипборд забирать...

Добавлено:

Сейчас сам проверил: курсора нет, текст мышью не выделяется...

noname00.pas · Отправлено: **09:16, 18-03-2003** | #8

Если на нём фокуса нет, то он сам прокручиваться не будет...

shurikan · Отправлено: **09:20, 18-03-2003** | #9

noname00.pas
А иначе текстовый курсор не убирается... Либо надо самому новый контрол выводить по образу и подобию TMemo, но уже без этого курсора...

Профиль · Отправлено: **13:00, 18-03-2003** | #10

Да, можно сделать так, что-бы компонента не получала фокус (можно этого добиться проще: tabstop=0) - однако это всё же не совсем корректное решение...
В своё время я решал подобную проблему в DOS - отлавливал адрес, где указывались атрибуты текстового курсора, и потрошил их.
Наверняка доступ и к этому курсору имеется через Win API (что-нибудь
типа скорости мерцания, формы и т.п).

ilusha sh Сообщения: n/a	Профиль \| Цитировать А как задать другой ТЕСКСТОВЫЙ курсор? (При enabled=false компонента не активна, не вызываютса её обработчики. Есть и визуальные отличия - приглушенные цвета).
	Отправлено: 12:02, 17-03-2003 \| #3