delphi7中的edit控件怎么设为只读
此处只读的含义：1.鼠标能选中2.能复制粘贴3.无法修该控件的内容4.不是edit.enable属性
delphi7中的edit控件怎么设为只读
答案:2 悬赏:40 手机版
解决时间 2021-02-03 17:13
- 提问者网友：欺烟
- 2021-02-03 07:29
最佳答案
- 五星知识达人网友：爱难随人意
- 2021-02-03 07:53
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;
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;
全部回答
- 1楼网友：蕴藏春秋
- 2021-02-03 08:40
把edit控件的tabstop属性设置为false就没有光标了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯