TMemo

← →
Budy © (2004-02-22 22:11) [0]

Приветствую!
Вот чтоб текст нельзя было изменять в TMemo я сделал, а как насчет убрать курсор?

← →
begin...end © (2004-02-22 22:15) [1]

Memo.Enabled := False

← →
Amoeba © (2004-02-24 17:01) [2]

> begin...end © (22.02.04 22:15) [1]
> Memo.Enabled := False

Но тогда нельзя будет скроллировать текст.

Если нужно убрать caret, то для этого нужно послать Memo соответствующее сообщение (не помню, какое именно, но можно поискать в Help по API или в FAQ)

← →
uUnknown (2004-02-24 17:09) [3]

procedure TForm1.Memo1Click(Sender: TObject);
begin
HideCaret(Memo1.Handle);
end;

TMemo Найти похожие ветки