Курсор в TMemo

← →
saNat © (2004-12-17 18:50) [0]

Доброго времени суток.
Подскажите пожалуйста, как убрать курсор из TMemo. Свойство ReadOnly запрещает редактирование содержимого компонента, а курсор остается.

С уважением, EVA

← →
olookin © (2004-12-17 18:51) [1]

HideCaret(Memo1.Handle)?

← →
saNat © (2004-12-17 18:56) [2]

Выполнять, например в FormCreate? Тогда не оно.

С уважением, EVA

← →
begin...end © (2004-12-17 19:04) [3]

> saNat © (17.12.04 18:56)

Не надо выполнять в FormCreate. Надо выполнять тогда, когда нужное memo имеет фокус.

← →
grom (2004-12-17 19:08) [4]

ActiveControl:=nil;

← →
saNat © (2004-12-17 21:34) [5]

to begin..end Например, MemoChange? Не работает...
to grom Как я понял, это свойство формы... Оно пустое, а курсор все равно есть.

С уважением, EVA

← →
grom (2004-12-18 16:25) [7]

procedure TForm1.Button1Click(Sender: TObject);
begin
ActiveControl:=nil;
end;
И фокус с Memo уберётся.

С этим кодом текст будет как в справке: только выделяется, а каретки не видно.

Memo1.SetFocus; DestroyCaret;

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