Question

delphi7中的edit控件怎么设为只读

delphi7中的edit控件怎么设为只读
此处只读的含义：1.鼠标能选中2.能复制粘贴3.无法修该控件的内容4.不是edit.enable属性

Answer 1

procedure TForm1.Btn1Click(Sender: TObject);
begin
edt1.CopyToClipboard; //复制到剪切板, //edt1.PasteFromClipboard; //粘贴到EDIT
ShowMessage('复制成功');
end;procedure TForm1.edt1Click(Sender: TObject);
begin
edt1.SelectAll; //单击Edit选择所有内容
end;procedure TForm1.FormCreate(Sender: TObject);
begin
edt1.ReadOnly :=True; //设只读
end;

Answer 2

把edit的readonly属性改为true