Q
qifenglin
Unregistered / Unconfirmed
GUEST, unregistred user!
如何让TRichEdit处于非编辑状态，既不能选择文字，也不能编辑文字，同时背景是白色，字是黑色
L
lixx
Unregistered / Unconfirmed
GUEST, unregistred user!
Disable它不可以吗？
Q
qifenglin
Unregistered / Unconfirmed
GUEST, unregistred user!
不行啊，因为这时候背景是灰色的。
妙
妙兔无花
Unregistered / Unconfirmed
GUEST, unregistred user!
readonly?
Q
qifenglin
Unregistered / Unconfirmed
GUEST, unregistred user!
非编辑状态，既不能选择文字，也不能编辑文字...
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以让鼠标不落在该区域，也就是说鼠标在该区域失效……
实现的办法……
实现的办法……
L
lixx
Unregistered / Unconfirmed
GUEST, unregistred user!
Enable :=false
可以啊!
我在机器上试了是行的，
我用的是D6
方法：
在Form上拉一个Trichedit放上去，然后将其Enable属性设为false
可以啊!
我在机器上试了是行的，
我用的是D6
方法：
在Form上拉一个Trichedit放上去，然后将其Enable属性设为false
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
enable=false:这样就不能流动了。
readonly=true:可拷贝选择的。
readonly=true:可拷贝选择的。
岚
岚岚
Unregistered / Unconfirmed
GUEST, unregistred user!
同意lixx的说法，D5也是可以的，不过你要把color设置为clwindow.
Z
zw84611
Unregistered / Unconfirmed
GUEST, unregistred user!
你两个问题是一样的。
简单，把它放在一个Panel里，另Panel的Enabled为false
简单，把它放在一个Panel里，另Panel的Enabled为false
天
天真
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Memo1Enter(Sender: TObject);
begin
Edit1.SelectAll;
Edit1.SetFocus;
end;
把MEMO的READONLY设为TRUE
begin
Edit1.SelectAll;
Edit1.SetFocus;
end;
把MEMO的READONLY设为TRUE
S
seven_918
Unregistered / Unconfirmed
GUEST, unregistred user!
在TRichEdit的OnEnter事件中把焦点移动到其他控件就可以了，比如说：
Edit1.SetFocus;
Edit1.SetFocus;
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
将 ReadOnly 设为 true
并在 OnSelectionChange 中进行处理：
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
with richedit1 do
if selLength>0 then
begin
selStart:=selStart+selLength;
selLength:=0;
end;
end;
并在 OnSelectionChange 中进行处理：
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
with richedit1 do
if selLength>0 then
begin
selStart:=selStart+selLength;
selLength:=0;
end;
end;
Q
qifenglin
Unregistered / Unconfirmed
GUEST, unregistred user!
zw84611的回答可行，当然加分啦[
]
]