5,388
社区成员
发帖
与我相关
我的任务
分享哪位大哥能让RichEdit不能输入中文?很多大论坛都没能结决!
哪位大哥能让RichEdit不能输入中文?不要说在Onpress事件中加入代码,因为输中文时跟本就不能触发该事件!
...全文
请发表友善的回复…
发表回复
ychx 2004-08-16
- 打赏
- 举报
好像在WndProc的WM_CHAR消息中也只能拦到英文的输入,对中文的输入是没用的,不知您是怎么用的?
ychx 2004-08-13
- 打赏
- 举报
jinjazz的还不错,不过这个只适合在全部文本的状态,我在实际应用中是要调入OLE的东西的,只能判断键码来调用,所以感觉还是有点不行啊
budi 2004-08-13
- 打赏
- 举报
替换编辑器缺省的WndProc，在新过程中捕获WM_CHAR消息，发现是中文抛掉就行了。
这要借助两个过程(MakeObjectInstance, SetWindowLong)和LeadByte字符集。
if key in LeadByte then // 是双字节字符
......
这要借助两个过程(MakeObjectInstance, SetWindowLong)和LeadByte字符集。
if key in LeadByte then // 是双字节字符
......
手指风 2004-08-13
- 打赏
- 举报
好象在faq里见过,你去看看
jiayodo 2004-08-12
- 打赏
- 举报
判断输入字符的ascll码是否大于a0也可以
不过还是jinjazz的好
不过还是jinjazz的好
workers 2004-08-12
- 打赏
- 举报
procedure Tform.RichEdit1KeyPress(Sender: TObject;
var Key: Char);
begin
inherited;
if not (key in ['0'..'9','.',#13,#27,#8]) then
key := #0;;
end;
var Key: Char);
begin
inherited;
if not (key in ['0'..'9','.',#13,#27,#8]) then
key := #0;;
end;
jinjazz 2004-08-12
- 打赏
- 举报
var s:string;
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if length(widestring(richedit1.Text))
<>length(richedit1.Text) then richedit1.Text:=s
else
s:=richedit1.Text;
richedit1.SelStart:=length(richedit1.Text);
end;
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if length(widestring(richedit1.Text))
<>length(richedit1.Text) then richedit1.Text:=s
else
s:=richedit1.Text;
richedit1.SelStart:=length(richedit1.Text);
end;
