[diagnost]

Как это сделать? Да если еще нельзя будет выделять текст, то вообще хорошо. Хочу использовать этот компонент для вывода текста без возможности редактирования.

[The Shadow]

Enabled:=False

[diagnost]

Надо, чтобы скролл работал и цвет был штатным. В этом компоненте при изменении размера окна идет перенос текста по словам и автоскролл, что очень удобно. Вот в отображении хелпов так же устроено и нет курсора. Может, поменять цвет курсора на фоновый?

[Drozh]

Скрыть курсор можно так:

Код:

HideCaret(Memo1.Handle);

Процедура только скрывает курсор, но он фактически остается...

Сделал так:

Код:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 HideCaret(Memo1.Handle)
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Key := 0;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 Key := #0;
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Key := 0;
end;

Таким образом удалось полностью избавиться от редактирования Memo, но выделять по пержнему возможно

[recod]

Избавиться от редактирования можно проще

Memo1.ReadOnly:= true;