Memo 组件中的文字如何锁定呢

Question

Memo 组件中的文字默认可以删除的我想让显示出的内容 不被删除呢修改那个属性呢

Answer 1

ReadOnly := True
//或者
Enabled := False

Answer 2

ReadOnly := True
或
Enabled := False
或
在keydown事件中捕获删除键,如果是删除键,取消操作

Answer 3

另类一点var
  S: string;procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo1.Text := S;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  S := Memo1.Text;
end;^_^