Курсор Richedit \Delphi

[CrudeSource]

Доброго времени суток!
Использую richedit с выравниванием текста по центру. Алсо, включен read only.
Проблема в том, что при ведении курсора от левого конца эдита до текста курсор меняется на стрелку, как на скрине.

Сие можно отключить, чтобы оставался прежний курсор?
Пробовал абузить с помощью set system cur & screen cur - 0 реакции.
Укажу на то, что мне не нужно убирать курсор - каретку а именно необходимо отключить его авто-изменение на стрелку.
Enabled false не предлагать.
Спасибо за внимание)

[Heneken87]

Сообщение от CrudeSource

Доброго времени суток!
Использую richedit с выравниванием текста по центру. Алсо, включен read only.
Проблема в том, что при ведении курсора от левого конца эдита до текста курсор меняется на стрелку, как на скрине.

Сие можно отключить, чтобы оставался прежний курсор?
Пробовал абузить с помощью set system cur & screen cur - 0 реакции.
Укажу на то, что мне не нужно убирать курсор - каретку а именно необходимо отключить его авто-изменение на стрелку.
Enabled false не предлагать.
Спасибо за внимание)

Доброго.Я так понимаю курсор не стандартный. Поробуйте в свойствах RichEdit.Cursor установить crArrow вместо crDefault, МБ прокатит. Если нет, то нужно будет назначить свой курсор и присвоить его свойству RichEdit.Cursor.
P.S:

var  curs:TCursor;
begin
curs:=LoadCursorFromFile('D:\check.cur');
Screen.Cursors[1]:=HCursor(Curs);
RichEdit.Cursor:=1;
end;

[CrudeSource]

Исполать вам, благоразумный человек! Прокатило)

Сообщение от Heneken87

Попробуйте в свойствах RichEdit.Cursor установить crArrow вместо crDefault.