P popogens Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-01 #1 我想在一个TRich中实现自定义的一些功能，包括哪些字符可以删，哪些不可以删，但Delete键让我伤透了脑筋，一个自以为挺完美的程序居然就差这一步！求助一下，怎样才能让Delete不再删字符？不胜感激。
我想在一个TRich中实现自定义的一些功能，包括哪些字符可以删，哪些不可以删，但Delete键让我伤透了脑筋，一个自以为挺完美的程序居然就差这一步！求助一下，怎样才能让Delete不再删字符？不胜感激。
W WilliamGui Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-01 #2 OnKeyProcess事件中写上 Key:=#0; 不行吗?
李 李翔鹏 Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-02 #3 procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = vk_delete then begin Key := Ord(0); end; end;
procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = vk_delete then begin Key := Ord(0); end; end;
O onyliu Unregistered / Unconfirmed GUEST, unregistred user! 2008-07-02 #4 procedure TForm.edtKeyPress(Sender: TObject; var Key: Char); begin if (Key in [#8]) then Key := #0; end;
procedure TForm.edtKeyPress(Sender: TObject; var Key: Char); begin if (Key in [#8]) then Key := #0; end;
